Timer in Schleife verwenden

[Äfan]

Hi,

Also ich weiß net was los ist aber ich bekomme das einfach net hin, irgendwie stell ich mich an:

Was will ich ?
Ich will eine Uhr machen.

So...
Also die aktuallisierung der Uhr soll über eine schleife gehen. Es soll aber nach jedem durchgang eine Sekunde pause gemacht werden. Wie mach ich das ?

MFG

[Ultimator]

Benutz doch einen Timer mit Intervall 1000 (ms), dann wird im OnTimer-Event jede Sekunde etwas getan ;-)

[Äfan]

Ja nur wie mache ich...

1. Die schleife ?
2. Den Timer aktivieren das er 1 Sekunde wartet ?

Wenn ich nur TTimer1.OnTimer mache will er noch mehr argumente

[Ultimator]

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.

[Äfan]

Geht net: Zugriffsverletzung.

Mach doch mal so ein Ding und Poste den Code :-D

[Ultimator]

1 Timer auf der Form; beim mir mit Interval 3000; Active
1 Button auf der Form

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
Timer1.OnTimer(self);
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
ShowMessage('Geht!!!');
end;

Compiliert und funktioniert.

[gmarts]

Zitat:

Zitat von Äfan

Mach doch mal so ein Ding und Poste den Code :-D

Poste mal lieber deinen Code, dann gucken wir da mal rein. :)


[edit]Ultimator war schneller][/edit]

[Äfan]

Delphi-Quellcode:

procedure TMainForm.Button1Click(Sender: TObject);
Var
  DateTime : TDateTime;
  Uhrzeit : string;
  i : Integer;
begin
  for i := 1 to 5 do begin
  DateTime := Time;
  Uhrzeit := TimeToStr(DateTime);
  StatusBar1.Panels[0].Text := Uhrzeit;
  Timer1.OnTimer(self);
 end;
end;

[Duffy]

Hallo zusammen,
er meint wahrscheinlich sowas wie in der anhängenden Demo.

bye
Claus

[gmarts]

Delphi-Quellcode:

  DateTime := Time;
  Uhrzeit := TimeToStr(DateTime);
  StatusBar1.Panels[0].Text := Uhrzeit;

Das packst du jetzt ins OnTimerEreignis und im ButtonEreignis aktvierst du den Timer.

Timer auf ein Interval von 1000ms(besser 500) stellen, damit die Zeitanzeige auch ständig aktualisiert wird.


[Edit]Wenn du Duffys Vorschlag nimmst, dann hast du eine schön übersichtliche Lösung.[/Edit]