Keypress Problem bei Setfocus

[Hawkeye219]

Hallo Thomas,

ich sehe deine Ergänzung leider erst jetzt. Natürlich kannst du auch Kombinationen mit den Umschalttasten abfragen:

Delphi-Quellcode:

procedure TForm1.FormShortCut(var Msg: TWMKey; var Handled: Boolean);
var
  Key : TShortCut;
begin
  Key := {Menus.}ShortCut(Msg.CharCode, KeyDataToShiftState(Msg.KeyData));

  if (Key = scShift or VK_RIGHT) then
    begin
      ShowMessage ('Gotcha!');
      Handled := True;
    end;
end;

Gruß Hawkeye