space taste sperren und freigeben ohne onKeyPress

[Katrin_K]

Ich frage mit

Windows.GetAsyncKeyState(32)<0 ob die Leertaste gedrückt wurde.

Wenn das der Fall ist Zeige ich mir ein MessageFenster

showmessage('Test'); an.

Da aber in dem Fenster der Focus auf dem OK-Button liegt und das Signal von der gedrückten Space an das Messagefenster weitergegeben wird, so schließt sich das Fenster wieder sofort.

Delphi-Quellcode:

if Windows.GetAsyncKeyState(32)<0 then   //32 Space
    begin
      //space sperren oder feld für gedrückte tasten manipulieren. sprich: gedrückteTastenFeld[32] := 0;  
      showmessage('Test');
    end