Forum: Object-Pascal / Delphi-Language
Delphi
by Ultimator,
12. Dez 2004
1 Timer auf der Form; beim mir mit Interval 3000; Active
1 Button auf der Form
procedure TForm1.Button1Click(Sender: TObject);
begin
Timer1.OnTimer(self);
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
ShowMessage('Geht!!!');
Forum: Object-Pascal / Delphi-Language
Delphi
by Ultimator,
12. Dez 2004
Ich versteh nicht ganz, was du mit der Schlaife meinst :-)
Sobald du den Timer auf Active:=true setzt, wird das OnTimer-Event jede Sekunde unabhängig von allen anderen Sachen ausgeführt.
PS: Wenn du Timer1.OnTimer aus einer anderen Prozedur aus aufrufen möchtest, musst du einen Sender angeben, z.B. self oder so.
Forum: Object-Pascal / Delphi-Language
Delphi
by Ultimator,
12. Dez 2004
Benutz doch einen Timer mit Intervall 1000 (ms), dann wird im OnTimer-Event jede Sekunde etwas getan ;-)