Jetzt habe ich es!
1) FormKeyDown benutzen
2) Key = 18 abfangen
3) WM_SYSKEYUP, WM_SYSKEYDOWN beide als Parameter in PeekMessage
Der ganze Code:
Code:
procedure TMedikation.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
var
Mgs: TMsg;
begin
if (ssAlt in Shift) and (Key = 18) then exit;
if (ssAlt in Shift) and (Key = 86) then
begin
Key := 0;
PeekMessage(Mgs, 0, WM_SYSKEYUP, WM_SYSKEYDOWN, PM_REMOVE);
edtVorpraeparat.SetFocus;
end;
end;