VK_TAB geht nicht (fast) alle anderen schon

Zimond · Beiträge: 49

Moin.

Ich durchsuche mir hier im Forum schon nen Wolf um raus zubekommen wie ich bestimmte Funktionstasten abfragen kann. Die häufigste Antwort ist in einem OnKeyDown ereigniss reinzuhaben :

markieren

Delphi-Quelltext

1:	if key = vk_irgendwas then ....

Das funktioniert ja auch mit so ziemlich jeder Taste (Esc, enter, pfeiltasten ect) nur aber nicht mit der Tabulator Taste, da diese das OnKeyDown Event überhaupt nicht erst auslöst. Ich habe auch etwas über die Einstellung keypreview auf der Form gelesen, welche man auf True setzen muss, auch dass hilft nichts und laut Delphi Hilfe hat diese Einstellung bei Tasten wie eben TAB auch gar keine Wirkung.

Das einzige was mir ansonsten einfiele wäre eine Timer gesteuerte DirectInput Abfrage, aber das kann es doch nicht sein...

Lannes · Verfasst: So 10.09.06 16:13

Hallo,

CM_DIALOGKEY abfangen.

Etwa so:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

//...
private
  procedure CMDialogKey(var Message: TCMDialogKey); message CM_DIALOGKEY;
//...
procedure TForm1.CMDialogKey(var Message: TCMDialogKey);
begin
  with message do begin
    case charcode of
    vk_tab: showmessage('Tab ausgelöst');
    else
      inherited;//Standardverhalten sicherstellen
    end;
  end;
end;

_________________
MfG Lannes
(Nichts ist nicht Nichts) and ('' <> nil ) and (Pointer('') = nil ) and (@('') <> nil )

Zimond · Beiträge: 49

vielen dank für die prompte und explizite Antwort. Funzt perfekt

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme