Auf Shift-Tab in TEdit reagieren ???

[Jürgen Thomas]

Zitat von winx:

wenn ich key preview auf treu stelle funktionierts auch irgendwie nich.

hab mal einen haltepunkt in der prozedur gesetzt. (erste zeile).

Nur Shift gedrückt => Er kommt in die Prozedur
Nur Tab gedrückt => Er kommt NICHT in die Prozedur
Nur Shift+Tab gedrückt => Er kommt NICHT in die Prozedur
Buchstabe (a,b,c,...) gedrückt => Er kommt in die Prozedur

Schnall ich nicht

Ich auch nicht:
1. KeyPreview := true ist unbedingt nötig, nicht nur ein Versuch.
2. Laut Hilfe und windows.pas ist die Tab-Taste #9, und diese wird von KeyUp/KeyDown (nicht KeyPress) ausgewertet.
3. Den Haltepunkt hätte ich auch als nächstes vorgeschlagen.

Versuch doch einmal, KeyUp auszuwerten.

Übrigens: der Übersichtlichkeit halber schlage ich folgende Schreibweise vor:

Delphi-Quellcode:

  if (shift = [ssShift]) and 
    key = VK_TAB)    //  <--
  then showmessage('DOWN: '+Inttostr(key));

Jürgen