Tastendruck Ausgeben

[Hawkeye219]

Die Funktion ShortCut befindet sich in der Unit Menus. Mit dem eingestreuten Kommentar wollte ich dich darauf hinweisen, dass du die USES-Anweisung entsprechend erweitern musst. ShortCut baut aus dem Inhalt des Nachrichten-Records Msg ein Tastenkürzel zusammen, das anschließend in der Variablen Key abgelegt wird.

Wie hast du eigentlich festgestellt, dass das Programm "nichts tut"? Du konntest den Quelltext doch aufgrund der Fehlermeldung gar nicht übersetzen. Ist die Methode FormShortCut mit dem Ereignis OnShortCut des Formulars fMain verbunden?

Gruß Hawkeye

[MaToBe]

Zitat von Hawkeye219:

Wie hast du eigentlich festgestellt, dass das Programm "nichts tut"? Du konntest den Quelltext doch aufgrund der Fehlermeldung gar nicht übersetzen. Ist die Methode FormShortCut mit dem Ereignis OnShortCut des Formulars fMain verbunden?

Indem ich dasKey := {Menus.}ShortCut(Msg.CharCode, KeyDataToShiftState(Msg.KeyData)); einfach auskommentiert habe

nicht haun bitte =P

Jetzt läufts supper, danke schön =)