Einzelnen Beitrag anzeigen

Benutzerbild von toms
toms
(CodeLib-Manager)

Registriert seit: 10. Jun 2002
4.648 Beiträge
 
Delphi XE Professional
 
#2

Re: TApplicationEvents - OnShortcut

  Alt 7. Mai 2004, 20:44
Zitat:
wie kann man erkennen, ob gleichzeitig auch noch strg gedrückt wurde

Hi,

Mit GetKeyState.

Ein Beispiel:

Delphi-Quellcode:
procedure TForm1.ApplicationEvents1ShortCut(var Msg: TWMKey;
  var Handled: Boolean);
begin
 if (Msg.CharCode = Ord('P')) and (GetKeyState(VK_CONTROL) < 0) then
 begin
    ShowMessage('strg+p');
    Handled := true;
  end;
end;
Thomas
  Mit Zitat antworten Zitat