14 Ekim 2012 Pazar

Delphi de timer kullanımı

Aşağıda vermiş olduğum kodlarda form üzerine atılmış iki adet timer ile bir butonun clik olayı anlatılmıştır basit bir kod bloğu ama acemi dediğimiz yeni başlayan arkadaşlara kaynak olması bakımından paylasmak istedim... : )


procedure TForm1.Button1Click(Sender: TObject);
 begin
  button1.Caption :='deneme';
 end;

procedure TForm1.Timer1Timer(Sender: TObject);
 begin
  Button1.Click;
    begin
     Timer1.Enabled:= false  ;
     timer2.Enabled:=true;
    end;
  end;
procedure TForm1.Timer2Timer(Sender: TObject);
 begin
   if button1.Caption ='deneme' then
     begin
       Timer1.Enabled:= false  ;
       timer2.Enabled:=false;
       showmessage('tıklama tamam') ;
      end
  else
    Timer1.Enabled:= false  ;
      timer2.Enabled:=false;
    showmessage('tıklayamadık :(');
     end;
  end.

Hiç yorum yok:

Yorum Gönder