Entwickler-Ecke
Grafische Benutzeroberflächen (VCL & FireMonkey) - Tastaturkombination ausführen
Cosmic - Mo 03.02.03 21:24
Titel: Tastaturkombination ausführen
Hillfeeeeeee,
kann mir niemand sagen wie ich eine Tastaturkombination auf ein Button lege !?
Nur "STRG + C" auf irgendeinen OnButtonClick Ereignis.
Das muss doch gehen.
Ich hoffe jemand kann mir da helfen!
Ciao Cosmic
-----------------------------------------
Let´s Fetz heute beginnt Dein Leben
Christian S. - Mo 03.02.03 22:19
Also entweder, Du stellst "KeyPreview" der entsprechenden Form auf True und baust in das OnKeyDown-Ereignis eine entsprechende Behandlungsroutine ein.
Oder Du benutzt eine Komponente, die ich in letzter Zeit sehr schätzen gelernt habe: TActionList. Da kannst Du jeder Aktion einen ShortCut zuweisen. Und die Aktionen (auch) einem Button zuweisen.
Christian S. - Mo 03.02.03 22:24
Sollte ich Dich falsch verstanden haben: so kannst Du mit einem Button ein STRG+s simulieren:
Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
| var
Form1: TForm1;
my_key : Word;
my_shift : TShiftState;
implementation
{$R *.dfm}
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if (Shift = [ssCtrl]) And (Chr(Key)='s') then
ShowMessage('Geschafft');
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
my_key:=Ord('s');
my_shift:=[ssCtrl];
Form1.FormKeyDown(sender,my_key,my_shift);
end; |
P.S.: Evtl. Form1.KeyPreview auf True.
MfG,
Peter
Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2026 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!