Event: 1 Sekunde nach OnKeyUp?

[Bummi]

Delphi-Quellcode:

procedure TForm2.FormKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
    Timer1.enabled := false;
    Timer1.enabled := True;
end;

procedure TForm2.Timer1Timer(Sender: TObject);
begin
    Timer1.Enabled := false;
    Showmessage('1 Sekunde rum');
end;

[fgp]

Vielen Dank, dass es so einfach funktioniert, hätte ich nicht gedacht.
Auf

Code:

    Timer1.enabled := false;
          Timer1.enabled := True;

wäre ich nie gekommen!

[fgp]

Ich frage mich allerdings, warum

Code:

Showmessage('1 Sekunde rum');

jetzt endlos ausgeführt wird, obwohl der Timer deaktiviert wurde? Habe die ShowMessage mal durch ein

Code:

Panel2.Visible:=True

ersetzt und bekomme beim Schließen des Programms eine Access Violation at address 000000.

[borstenei]

Der Vorschlag von Bummi funktioniert fehlerfrei, irgendetwas ist bei Dir falsch....

[himitsu]

Den ersten Befehl in OnTimer vergessen?

[fgp]

Okay, das Problem lag wo ganz anders. Sorry! Funktioniert einwandfrei.