Hallöle...
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
MyTimer:TTimer;
begin
MyTimer:=TTimer.Create(Form1);
MyTimer.Interval:=100;
MyTimer.OnTimer:=TimerEvent;
MyTimer.Enabled:=True;
end;
Du willst ja was lernen...
1. Was passiert wenn du den Button mehrfach drückst?
2. Was passiert wenn du den Button mehrfach (innerhalb der 100ms
) drückst? Es geht ja nur ums Prinzip.