wenn du es schaffst (soll auch leute geben die es nich schaffen
) einen
gültigen TTime-Wert in bspw. Edit1 reinzuschreiben, kannst du auch einfach den hier machen:
Delphi-Quellcode:
var TimeTill: TTime; //globale Countdown-Variable
...
begin
TimeTill := Time + StrToTime(Edit1.Text); //initialisieren bitte
Timer1.Enabled := True; //jetz kanns losgehen
end;
...
procedure Timer1.Timer(Sender: TObject);
begin
if TimeTill > Time then //solang der Countdown läuft
Label3.Caption := FormatDateTime('m":"ss',Time-TimeTill); //macht Delphi ganz komfortabel was du willst
else Timer1.Enabled := False; //und wenn ende is is ende
end;
is ungetestet, sollte aber laufen, sowas sollte ich eigentlich auch um halb 10 noch hinkriegen
