XX min Timer mit nachfolgender Aktion

[Light]

Hallo nastytrouble,

Herzlich Willkommen in der Delphi-PRAXiS!

Wiso diese zweite Form??
und du machst jetz glaub ich was doppelt!
-- ich beschreib dir aufjedenfall mal ein beispiel!

Also es gibt in Delphi eine Komponente die heist TTimer
diese funktioniert so:
du setzt in der Eigenschaft Interval die zeit in millisecunden für eine secunde also 1000
und dann wenn der timer loslaufen soll stellst du die eigenschaft Enable auf true;
wenn dann die in interval angegebene zeit rum ist dann wird das ereigniss OnTime ausgelösst!
Dort kannst du dann einfach eine Meldung ausgeben!
Hier ein Beispiel:

Delphi-Quellcode:

//Der Button zum Starten des Timers
procedure TForm1.BStartClick(Sender: TObject);
Var
  Zeit : Cardinal;
Begin    
  Zeit := StrToInt(ELaenge.text);     // Der Text aus dem Edit ELaenge wird in eine Zahl umgewandelt
  Zeit := Zeit * 1000 * 60            // So wird eine Eingabe in Minuten ermöglicht
  TZeit.Interval := Zeit;             // Die Zahl wird in den Timer gesetzt
  TZeit.Enable := True;               // Der Timer wird gestartet
End;

//Der Timer TZeit bzw. dessen ereigniss OnTime
procedure TForm1.TZeiTimer(Sender: TObject);
Begin
  ShowMessage( #13 + #13 + 'DIE ZEIT IST ABGELAUFEN!' + #13 + #13); // Eine Meldung wird ausgegeben
             // ^-> die #13 sind zeilenumbrüche! dadurch wird das Meldungsfenster größer ;-)
End;

//Button um den Timer zu stoppen!
procedure TForm1.BStopClick(Sender: TObject);
Begin
  TZeit.Enable := False;        // Stoppt den Timer
End;

Wenn noch Fragen sind frag ruhig!

Liebe Grüße
Stefan alias Light

PS: In der Delphi Hilfe gibt es auch manchmal ganz praktische Beispiele! (dierekt auf einem Wort im Editor den Cursor setzen und F1 drücken ruft die hilfe für das Objekt oder die eigenschaft auf)
[edit]Hab ich vergessen: im design modus den timer auf false setzen! *G*[/edit]