Tastenkombination simulieren

[Todd]

Hallo Leute,

ich möchte gerne auf meinem Formular die folgende Tastenkombination simulieren.
D.h. der User drückt einen Button und eine Tastenkombination wird so ausgeführt, als ob es der User eingegeben hätte:

Delphi-Quellcode:

procedure Form1.Button1Click(TObject *Sender)
begin
     //Jetzt die Tastenkombination - Str+Shift+L - 2mal nacheinander ausführen
...
...
end

Danke für eure Hilfe

[DeddyH]

Such mal nach keybd_event.

[Robert Marquardt]

Funktioniert mit WM_KEYDOWN und WM_KEYUP Messages. Es koente aber Probleme damit geben das es von einem TButton ausgeloest wird. Ein TButton ist eine TWinControl und hat beim Ausloesen den Fokus. Die Tastendruecke gehen also an den Button und duerften dort einfach ignoriert werden.

[Todd]

Okay danke,

es funktioniert halbwegs:

Delphi-Quellcode:

procedure Form1.Button1Click(TObject *Sender)
begin
     keybd_event(VK_CONTROL,0,0,0);
     keybd_event(VK_SHIFT,0,0,0);
     keybd_event('L',0,0,0);
end

Das Problem ist jetzt, dass die Tastenkombination auch weiterhin besteht. Wie kann ich denn diese wieder auf "Normal" zurücksetzen, so dass kein Tastendruck simuliert wird und das Keyboard sozusagen wieder in seiner Ausgangseinstellung ist?

[DeddyH]

Hast Du die Hilfe zu keybd_event nicht ganz gelesen? :zwinker: Es gibt die Konstante KEYEVENTF_KEYUP, die dafür zuständig ist.

[Todd]

Danke für die schnelle Hilfe...

Leider habe ich in meiner Hilfe keinen Eintrag zu "keybd_event" und konnte deshalb auch nicht nachsehn.

Funktioniert jetzt jedenfalls einwandfrei...Nochmals danke

[Robert Marquardt]

Man laedt sich am besten von Microsoft das Platform SDK herunter. Das ist das Win32 API mit Hilfe.