space taste sperren und freigeben ohne onKeyPress

[Katrin_K]

hi

Ich möchte die Spacetaste Sperren, da ich mir mit dem tastendruck eine Nachricht anzeigen lassen möchte.

Delphi-Quellcode:

 if Windows.GetAsyncKeyState(32)<0 then   //32 Space
    begin
      showmessage('Test');
    end

Die Nachricht wird mir aber nicht angezeigt, weil der Tastendruck Das Fenster gleich wieder schließt.

Oder kann man vielleicht das GetAsyncKeyState-Feld veränderm???


gruss katrin