Key und Shift zu ShortCut verknüpfen

[Kay]

Hallo,

ich würde gern die Tastenkombination, die in einem Eingabefeld gedrückt wird, einem bestimmten Menüeintrag zuweisen wollen. Allerdings weiß ich nicht, wie die Werte von Key und Shift kombiniert werden können, sodass z.B. Strg+O entsteht:

Code: Alles auswählen

procedure TForm1.Edit1KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var
  Data: Word;
begin
  if Key = 8 then
    MenuItem1.ShortCut := 0
  else
  begin
    Data := Key;
    if Data >= 32 then
    begin
      // ?
      if ssAlt in Shift then Data := Data or Shift;
      if ssCtrl in Shift then Data := Data or Shift;
      if ssShift in Shift then Data := Data or Shift;
      MenuItem1.ShortCut := Data;
    end;
  end;
  Key := 0;
end;

Vielen Dank schonmal

[Christian]

MenuItem1.Shortcut := ShortCutToText('Strg+O');

[Kay]

Leider nützt mir das nichts. Strg+O war ja nur ein Beispiel.
Ich möchte eine Tastenkombination, die der Anwender in einem Eingabefeld drückt, als Shortcut zuweisen. Deshalb behandel ich auch das KeyUp-Event...

[Christian]

Ja mach ich auch so.
Warum sollts nicht funktionieren wenn du Strg+= durch

if ssCtrl in Shift then
KeyKomb := 'Strg+'+chr(Key);

ersetzt ?

[Kay]

Ach so meinst du das. Stimmt, das wäre eine Möglichkeit. Allerdings müsste ich dann die Funktion TextToShortCut anwenden.

[Bitschubser]

Was ist mit

Code: Alles auswählen

MenuItem1.ShortCut := ShortCut(Key, Shift);

?

[mse]

Code: Alles auswählen

 
...
unit Menus;
...
function ShortCut(const Key: Word; const Shift : TShiftState) : TShortCut;
...
function ShortCut(const Key: Word; const Shift : TShiftState) : TShortCut;
begin
  Result := LCLType.KeyToShortCut(Key,Shift);
end;