Hallo zusammen, ich habe etwas ähnliches.
Bei mir gibt es u.a. zwei Edit-Felder. Meistens füllt man nur das zweite aus. Daher hat das erste Editfeld kein Tabstob
Mit der Tastenkombination Alt + V soll der Fokus aber auf das erste Edit-Feld gelegt werden.
Im FormCreate habe ich schon
KeyPreview := True;
Dann habe ich:
Code:
procedure TMedikation.FormKeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);
var
Mgs: TMsg;
begin
if (ssAlt in Shift) and (Key = 86) then
begin
//ShowMessage('Alt + V');
PeekMessage(Mgs, 0, WM_SYSKEYUP, WM_SYSKEYUP, PM_REMOVE);
Key := 0;
//shift := [];
edtVorpraeparat.SetFocus;
end;
end;
WM_CHAR geht nicht, WM_SYSKEYDOWN auch schon probiert(mit FormKeyDown)
Was ist falsch?