Forum: Object-Pascal / Delphi-Language
Delphi
by lucius,
6. Dez 2005
So habs selber hingekriegt sowie ich das wollte aber marabu, deine Idee behalte ich im Hinterkopf.
Fuer die jenigen die es interessiert.
procedure THaupt.Timer6Timer(Sender: TObject);
var
v : TDateTime;
begin
v := StrToFloat(Form2.Zeiteingabe.Text) * OneMinute;
v := v - (OneMinute * 5); //Anzahl minuten bis Update MenuItem wieder aktiv wird//
if Restzeit.caption = timetostr(v) then
Forum: Object-Pascal / Delphi-Language
Delphi
by lucius,
6. Dez 2005
Hi marabu, ansich ne klasse Loesung aber dabei muss ich meinen ganzen Code wieder anpassen und das ist schon einiges.
Gruss Lucius.
Forum: Object-Pascal / Delphi-Language
Delphi
by lucius,
6. Dez 2005
Hallo Leute,
Ich habe einen Timer in meiner Application der eine angegebene Zeit(Zeiteingabe.Text) vom User zurueck zaehlt.
procedure TDemoForm.Timer6Timer(Sender: TObject);
var
v : TDateTime;
begin
v := strtotime(Form2.Zeiteingabe.Text); //<-- Zeiteingabe in Minuten vom User.
if restzeit = v - 60 then