Entwickler-Ecke

Windows API - Tastenkombination bei FormKeyDown


mk3 - Do 08.01.04 12:21
Titel: Tastenkombination bei FormKeyDown
Hallo!

Kann mir jemand helfen? Wie kann ich die Tastenkombination ausführen?
Ich habe mit der folgenden Code versucht, aber tbNeu.Click wird nie ausgeführt. Wenn ich Strg - Taste drücke, dann wird immer Key=17 geschickt.
Nur wenn ich alleine N drücke (ohne Strg), dann Key=78.


Delphi-Quelltext 
1:
2:
3:
4:
5:
6:
 
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
 if (Shift = [ssCtrl]) and (Key=78) then 
  tbNeu.Click;  // STRG+N
end;


Danke im voraus für jeden Hinweis!
mk

Moderiert von user profile iconMotzi: Code- durch Delphi-Tags ersetzt.


teebee - Sa 10.01.04 22:00
Also bei mir funktioniert das, allerdings nur, wenn KeyPreview auf True steht.

Gruß, teebee


patrick - So 11.01.04 12:44
zur ergänzung:
in Tmenu, tpopupmenu und auch in tacionlist gibt es die im objectinspector die option shortcut schon vorprogrammiert.


Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2025 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!