Timer Sadece Bi Kere Çalışsın...

[The_MeLiX]

Ben timere bi işlem yaptırdığım zaman onu sadece bikere yapmıyor mesaj OK tuşuna tıklayana kadar devamlı geliyor.... Bunun yerine mesaj bi kere gelsin sonra timer otomatik olarak False olsun istiyorum nasıl yapabilirim?

Kodlarla daha iyi anlarsınız...

Kod: Tümünü seç

procedure TForm1.Timer1Timer(Sender: TObject);
begin
ShowMessage('Mesaj');
Timer1.Enabled:=False;
end;

Burda OK Tuşuna tıklayana kadar ardarda mesaj geliyor.... Bunun yerine bikere mesaj geldikten sonra timerin false olmasını nasıl sağlayabilirim?

[lazio]

yerlerini değiştir..

Kod: Tümünü seç

Timer1.Enabled:=False; 
ShowMessage('Mesaj');