Thema: Delphi Countdown-Brauche Hilfe

Einzelnen Beitrag anzeigen

BullsEye

Registriert seit: 8. Sep 2007
Ort: Werlte
872 Beiträge
 
Delphi 7 Personal
 
#3

Re: Countdown-Brauche Hilfe

  Alt 30. Dez 2007, 00:47
Ok, so gehts. Hab die Klammern nur vergessen
Allerdings hab ich gemerkt, das er mir die Message nur ausgibt, wenn ich auf den Button klicke deshalb hab ich es nun auf einen Timer gesetzt

Delphi-Quellcode:
procedure TForm1.Timer2Timer(Sender: TObject);
begin
IF (Edit1.Text <= Label3.Caption) AND (Edit2.Text <= Label1.Caption) THEN BEGIN
ShowMessage(Edit3.Text); END;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
IF Timer2.Enabled = False THEN
Timer2.Enabled := true;
Damit er mir nicht dauerhaft die Message anzeigt wenn ich z.b. mit nem alten Datum starte hab ich den Timer disabled und auf Button Click wird er Enabled. Aber Ich will die Message NUR 1x angezeigt haben, wie bekomm ich sowas hin?

so???

Delphi-Quellcode:
procedure TForm1.Button2Click(Sender: TObject);
begin
IF Timer2.Enabled = False THEN
Timer2.Enabled := true
ELSE
Timer2.Enabled := false;
end;
  Mit Zitat antworten Zitat