Timer nesnesi

[Misafir]

Timere koyduğum kodun sadec bi sefer çalışmasını nasıl yapabilirim
mesela timere ShowMessage('Deneme'); diye kod koyduk bu mesajın sadece 1 sefer çıkmasını nasıl sağlarız ??

[warder]

ShowMessage(wwwww); den sonra Timer.Enabled =: false; ile olur. yoksa := şeklindemiydi.

[sadettinpolat]

Eğer Ontimer olayındaki kodun çalışma zamanı timerın interval süresinden daha fazla zaman alıyorsa ilk once timerı kapatın ve ardından yapmak istediğiniz işlemleri yapın.

Kod: Tümünü seç

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

[husonet]

Merhaba,

Flag değişken tanımlayarak yapabilirsin. ilk önce global bir değişken ata. Sonra timer nesnesinin OnTimer eventine aşağıdaki gibi bir kod yaz.

Kod: Tümünü seç

if Flag = 0 Then
Begin
   ShowMessage('DelphiTurkiye.com');
   Flag := 1;
End;

Kolay Gelsin...