Fang-Dialog für Tastenkürzel

[diogenes]

Weiß jemand, wie ich auf den Dialog zugreifen kann, mit dem man Tastenlürzel (Shortcuts) fangen kann?
Das ist ein Doalog, in dem man die Kombination eingibt, und dann müüste der TShortcut-Wert erreichbar sein.

Ich weiß ungefähr, wie man sowas programmiert, aber warum das Rad zum 2. Mal erfinden?

[theo]

Im Projektinspektor IDEIntf als "Anforderung" hinzufügen.

Code: Alles auswählen

uses PropEdits; 
...
var
  Gb:TShortCutGrabBox;    
...
procedure TForm1.FormCreate(Sender: TObject);
begin
   Gb:=TShortCutGrabBox.Create(self);
   GB.Align:=alTop;
   Gb.Parent:=Self;
end;  

Habe ich jetzt ganz ohne KI herausgefunden.

[diogenes]

Ich glaube Dir, dass Du das ohne KI herausgefunden hast

Ich hjingengen hab's nicht gefunden …
Danke!

[fliegermichl]

Im Projektinspektor IDEIntf als "Anforderung" hinzufügen.

Code: Alles auswählen

uses PropEdits; 
...
var
  Gb:TShortCutGrabBox;    
...
procedure TForm1.FormCreate(Sender: TObject);
begin
   Gb:=TShortCutGrabBox.Create(self);
   GB.Align:=alTop;
   Gb.Parent:=Self;
end;  

Habe ich jetzt ganz ohne KI herausgefunden.

Wie hast du das herausgefunden?

Ich hatte einen Breakpoint in main.pp in TMainIDE.DoOpenIDEOptions gesetzt und gesehen, dass dann der IDEOptionsDialog erstellt und ausgeführt wird. Da war dann Ende.

[theo]

Wie hast du das herausgefunden?

Wo ein Wille ist, ist auch ein Weg!

So einen Dialog gibt es ja z.B. ausgehend vom Shortcut eines TMenuItem.
Dort steht z.B. "Taste Fangen" bzw. "Grab Key".
Dann suche ich einfach mal in Dateien im Lazarus Verzeichnis, wo "Grab Key" vorkommt.
Dabei stösst man auf die Unit designer/MenuShortcuts.
Dort wird die TShortCutGrabBox benutzt, welche in components/ideintf/PropEdits in deklariert ist und schon ist man am Ziel.

Es gibt sicher viele andere Wege. Ich benutze oft die Volltextsuche, gerade in "fremdem" Code.