Thema: Delphi Schleifenfunktion?

Einzelnen Beitrag anzeigen

BullsEye

Registriert seit: 8. Sep 2007
Ort: Werlte
872 Beiträge
 
Delphi 7 Personal
 
#9

Re: Schleifenfunktion?

  Alt 2. Jan 2008, 21:31
Zitat von mkinzler:
Das wird ja von Windows erledigt
Ja schon aber wenn ich das nicht wieder schließe hab ich ja nach nem Tag X geöffnete Fenster

Ich hab es nun mal so gemacht aber iwie stimmt das was nicht.

Delphi-Quellcode:
procedure TfrmMain.CheckBox1Click(Sender: TObject);
VAR stunden, i : longint;
begin
IF (CheckBox1.Checked = true) THEN BEGIN
stunden := StrToInt(Edit2.text);
stunden := stunden * 3600000;
END;
FOR i := 1 TO 2 DO
BEGIN
Button1.Click;
sleep(1000);
END;
i := i-1;
end;
Ich hab ein Prog (siehe Bild im Anhang) und da soll das so geschehen, das sich alle 3 Stunden Button1 geclickt wird
Miniaturansicht angehängter Grafiken
bild_103.jpg  
  Mit Zitat antworten Zitat