Einzelnen Beitrag anzeigen

Benutzerbild von Die Muhkuh
Die Muhkuh

Registriert seit: 21. Aug 2003
7.332 Beiträge
 
Delphi 2009 Professional
 
#31

Re: brauche bishen hilfe damit die zeit im Edit runter leuft

  Alt 24. Apr 2005, 08:41
Erstmal es gibt einen Edit-Knopf.

Zweitens: Schreib deutsch.


Setz den Intervall vom Timer auf 60000 (im ObjectInspector).
Delphi-Quellcode:
TForm1 = class(TForm) // Sowas in der Art sollte ziemlich weit oben stehen
private
  Counter: Integer;
public

end;

...

implementation

// Erzeuge ein Form.Create (im ObjectInspector die Form auswählen auf Ereignisse und doppel auf OnCreate dann sollte das da stehen:
procedure TForm1.Create(Sender: TObject);
begin
  Counter := 20;
end;

procedure Timer1.Timer(Sender: TObject);
begin
  Dec(Counter);

  if Counter = 0 then
  begin
    // Nach zwanzig Minuten
  end;
end;