Lösungsvorschlag:
-2 DateTimePicker (erste: Kind:=dtkDate, zweite Kind:=dtkTime)
-1 Edit
-1 Button
-2 Timer
DateTimePicker: Startzeitpunkt
Edit: gewünschte Länge in Minuten
Button: Start
Delphi-Quellcode:
procedure TForm1.DateTimePicker1Change(Sender: TObject);
begin
DateTimePicker2.DateTime := DateTimePicker1.DateTime;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Timer1.Enabled:=true;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
if now >= DateTimePicker2.Time then
begin
Timer1.Enabled:=false;
Timer2.Enabled:=true;
end;
procedure TForm1.Timer2Timer(Sender: TObject);
begin
if now >= DateTimePicker2.Time + 1/(24*60)*StrToFloat(Edit1.Text) then
begin
Timer2.Enabled := false;
exit;
end;
//do something
end;
//optional
procedure TForm1.FormCreate(Sender: TObject);
begin
DateTimePicker1.DateTime := now;
DateTimePicker2.DateTime := now;
end;
Gruß
Ben
P.S.: Frag nach, falls du es nicht verstehtst!