Tastendruck

[Matze]

Dann mach's so:

Code:

procedure TForm1.Memo1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key = 226 then memo1.Color:=clyellow;
  //für die <-Taste
end;

Gruß Matze

[bixi400]

Danke Matze!

[Assarbad]

Hier scheint wohl eher das Problem zu sein, daß irgendeine Unit nicht eingebunden wurde. Von der Benutzung von Literalen statt Konstanten kann man nur abraten. Das versteht ihr, sobald ihr große Projekte erarbeitet.

[Christian Seehase]

Moin bixi,

in welcher Hilfe steht denn, dass < durch die Konstante key_less bzw. VK_LESS repräsentiert wird?

Gemäss PSDK wird 226 (E2 hex) als Konstante VK_OEM_102 deklariert. Zu finden in der WinUser.h.
Dieser Wert gilt als Konstante für die Taste < >.

Zumindest in D5 ist diese Konstante allerdings nicht deklariert.