Eigene Tastenkombinationen?

[citybreaker]

Hallo,

wie kann man eigene Tastenkombinationen wie z.B.
strg + space oder strg + alt + a erstellen?

[DelphiDeveloper]

schau dir doch mal ne actionlist an, dort kannst du das
im property schreiben.

je nach delphiversion


in der deutschen halt
STRG+ALT+A
in der englischen
CTRL+ALT+A

deinem button oder so weist du dann die action zu.
Das unschöne an der Geschichte ist, dass der Anwender leider den ShortCut nicht
auf dem button sieht.
Dazu habe ich mir eine Komponente erstellt, wo der shortcut eingeblendet wird.

siehe abbildung

[citybreaker]

Danke, das hat mit schonmal weiter gefunden nur finde ich ein
strg + leerzeichen sondern nur strg + buchstabe. :(

Kann man auch mehrer Actions einer Form zuweisen? Also das wenn man
Form1.Action := Action1; hat ist ja nur eine Tastenkombination vorhanden.

[DelphiDeveloper]

kannst aber einfach strg+Leerzeichen schreiben

und dann siehste beim ausführen das es funzt.

[DelphiDeveloper]

Zitat:

Kann man auch mehrer Actions einer Form zuweisen? Also das wenn man
Form1.Action := Action1; hat ist ja nur eine Tastenkombination vorhanden.

ohne weiteres geht das nicht. Warum sollte es auch?
Bei STRG+Leertaste soll ja was anderes ablaufen als bspw. bei STRG+ALT+H.

In der Regel weißt du ja die actions den controls zu und nicht der tform

[citybreaker]

Öhm wie kann ich den das ganze ohne TActionList machen?
Bei Delphi3 gibt es diese noch nicht. >.<'

[Sharky]

Hai citybreaker,

setze KeyPreview der Form auf True und werte das OnKeyDown-Ereigniss aus.

Delphi-Quellcode:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if ((ssalt in Shift) and (ssctrl in shift)) then  //Ctrl und ALT gedrückt
  begin
    if (Key = 32) then  //Space gedrück
    begin
      if (ActiveControl.Name = 'Edit1') then  //Name des Activencontrols
      begin
        ShowMessage ('CTRL-ALT-Space in Edit1');  //Aktion
      end;
      if (ActiveControl.Name = 'Button1') then
      begin
        ShowMessage ('CTRL-ALT-Space bei Button1');
      end;
    end;
  end;
end;