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