Event: 1 Sekunde nach OnKeyUp?

[fgp]

Hallo,

wie könnte ich ein folgendes Event programmieren:
1 Sekunde nach dem letzten Tastenanschlags (OnKeyUp) soll ein Befehl ausgelöst werden. Das Problem ist aber, dass der Befehl nicht ausgelöst werden soll, wenn in der Zwischenzeit von 1 Sekunde eine weitere Taste gedrückt wurde.

Ich bin ratlos, vielleicht hat jemand eine Idee?

[cookie22]

Zitat von fgp:

Hallo,

wie könnte ich ein folgendes Event programmieren:
1 Sekunde nach dem letzten Tastenanschlags (OnKeyUp) soll ein Befehl ausgelöst werden. Das Problem ist aber, dass der Befehl nicht ausgelöst werden soll, wenn in der Zwischenzeit von 1 Sekunde eine weitere Taste gedrückt wurde.

Ich bin ratlos, vielleicht hat jemand eine Idee?

Starte einfach einen Timer, falls ein anderes KeyUp triggert, stellst du den Timer ab, bzw. startest ihn neu.

[himitsu]

Wobei sowas schon öfters mal gefragt wurde, wie z.B. schonmal vor wenigen Tagen ... die SuFu langweilt sich bestimmt schon

http://www.delphipraxis.net/166959-s...sgelassen.html

[fgp]

Hallo,

danke für die Antworten.
Wie kann ich überprüfen, ob KeyUp (oder auch KeyPress/~Down) nochmal ausgeführt wird?
Werde leider aus dem von himitsu geposteten Thread nicht schlau, habe mal die Methode von Bummi mit WM_KEYUP probiert, doch es tat sich leider nichts.

[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.