memoda istediğim satırı silemk istiyorum

[askadami]

iyi günler bir kaç sorum olacaktı bir türlü işin içinden çıkamadım şimdi memo ya birşeyler yazacak kullanıcı daha sonra checkbas olacak tarih ekle diye kullanıcı buna tıkladığında tarihmemoya en alta yada benim istediğim yere eklenecek ekleme işini yaptım ama butona tıkladığında her tıklamamda ekliyor memoya ve kullanıcı check box su false yaptığında eklediği tarih kalkacak bunu bir türlü yaptıramadım


2.sorum ise söğle

programdan çıkarken çıkmak istediğinizden eminmisiniz diye soru soracak evet derse çıkacak hayır derse çıkmayacak benim yaptığımda evet desemde hayır desem de çıkıyor programdan birde söğle birşey yapmak istiyorum program şifre korumalı program çalıştırıldığında şifre girilmeden program hiç bir şekilde kapatılamıyacak böğle bir şey mümkün mü ctrl+alt+del de yapsa alt+F4 de yapsa şifre girilmeden program katılmıyacak


3. sorum sa programa arkaplanda çalış adlı bir buton koyacağım buna tıklandımı program saat simgesinin orada çalışmaya devam edecek

4. sorum memoda yazılan bir yazı sanki ledler üzerinde yazıyormuş gibi kayarak yazacak bununla ilgili kompenen var mı

son sorum ise programım istenildiği kadar tıklansın sadece bir defa çalışacak yani ikinci kez program çalıştırılmak istenirse program çalışıyor diyecek birde bilgisayar açıldığında program otamatik olarak çalışacak saat simgesinin orada

biraz çok oldu sorularım ama gece sabaha kadar uğraştım bunları çözemedim bu konuda bana yardımcı olursanız sevinirim



bu kodları yapmış o0lduğum projede kullanacağım kayan yazı projesi
için kullanacağım incelemek isterseniz

http://www.beysehirchat.com/proje/

adresini ziyaret ede bilirsiniz teşekkürler..

[vampir261]

Programlarim.com dan alıntı

Program biz kez çalışsın

Formun OnCreate olayına aşağıdaki kodu ekleyin:

if GlobalFindAtom('PROGRAM_RUNNING') = 0 then
atom := GlobalAddAtom('PROGRAM_RUNNING')
else
begin
MessageDlg('Program zaten çalışıyor!', mtWarning, [mbOK], 0);
Halt;
end;

ve formun OnDestroy olayına da aşağıdaki kodu ekleyin. Hepsi bu kadar.

GlobalDeleteAtom(atom);

Başlangıçta açmak alıntı

uses kısmına Registry unitini ekleyin.
{$IFNDEF WIN32}
const MAX_PATH = 144;
{$ENDIF}

procedure TForm1.Button1Click(Sender: TObject);
var
reg: TRegistry;
begin
reg := TRegistry.Create;
reg.RootKey := HKEY_LOCAL_MACHINE;
reg.LazyWrite := false;
reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Run',false);
reg.WriteString('Uygulamam', uygulamanızın_yolu_ve_adı);
reg.CloseKey;
reg.free;
end;

[shadowmann]

3. sorunun cevabı da jedi de var. systray olması lazım componentin adı.

[serkan]

4.sorunun cevabı ise raize componentlerinde rzleddisplay componenti var sanırım işini görür ama ücretli malesef.

[SeRoKi]

TLedDisplay olarak Google da aramaya yaparsan 4. sour için bir bileşen bulabilirsin