Genaue Taste bei einer Message ermitteln

[halinchen]

Ich hab eine Procedure geschrieben und die beim Starten des Progs in "Application.OnMessage" eingetragen.
Jetzt überprüf ich ob eine Taste gedrückt wird:

Delphi-Quellcode:

 
procedure AppMessage(var Msg: TMsg; var Handled: Boolean);
begin
if Msg = WM_KeyDown then begin
     //Hier soll die Taste abgefragt werden
     end;
end;

Wie kann ich jetzt noch überprüfen welche Taste genau gedrückt worden ist.

Ich will nämlich die Esc-Taste abfangen.

[ferby]

Hallo,

wie du es so machst, weiß ich nicht,
ich könnte nur eine Alternative Vorschlagen,
nämlich das FormKeyDown Ereigniss

Delphi-Quellcode:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
  if key=VK_ESCAPE then close;
end;

[SirThornberry]

wenn du es direkt in der Messageroutine machst sollte ein Blick in's MSDN helfen:
WM_KeyDown

[3_of_8]

Das kann so doch gar nicht gehen.

TMsg ist ein record, WM_KEYDOWN ist ein integraler Wert.

Du musst machen:

Delphi-Quellcode:

if msg.message=WM_KEYDOWN then...

Und die Taste steht in msg.wparam oder msg.lparam, wo genau weiß ich nicht, aber ich glaube in wparam.

[dataspider]

Hi,

stehen in wparam, musste mal ein eigenes KeyHandling wie folgt integrieren:

Delphi-Quellcode:

procedure TrwCustomForm.WMKeyPress(var Message: TMessage);
Var
  Key: Word;
  Keyboard: TKeyboardState;
  Shift: TShiftState;
begin
  GetKeyboardState(Keyboard);
  Shift := KeyboardStateToShiftState(Keyboard);
  if (Message.WParam >= Low(Word)) and (Message.WParam <= High(Word)) then
  begin
    key := Message.WParam;
    // eigene Routine aufrufen
    // wichtig ist Result, damit Behandlung abgebrochen wird, wenn von KeyPressEx behandelt
    Message.Result := KeyPressEx(Key, Shift);
  end;
end;

Cu, Frank

[halinchen]

So erstmal danke für eure Hilfe, aber auf jeden Fall geht Form1.OnKeyPressed nicht.
Denn wenn da ein Button den Fokus hat kommt da nix an.

Den Rest schau ich mir morgen an.
Und noch mal danke für die Antworten.
:cheers:

[3_of_8]

Mit TForm.KeyPreview=True dürfte das gehen.

[halinchen]

Stimmt funktioniert alles.
Naja viele Wege führen nach Rom :-D .

Danke für die vielen Tipps.