Tastendruck

[bixi400]

Ich habe in der Hilfe nachgeschaut,
wenn ich abfragen will ob die Taste "<" gedrückt
ist muss ich irgentwo Key_Less eingeben.

Aber wo???
Könnt ihr mir helfen?

[Tyrael Y.]

ähm, könntest du näher beschreiben was dein Problem ist ?

Gruß Tyrael

[neolithos]

Taste für Cursor oder Zeichen?

Da muss man im Formular ein Ereignis erstellen

OnKeyPress
OnKeyDown
oder
OnKeyUp

je nach dem was man machen möchte...

[Illuminator-23-5]

es könnte auch mit TKeyBoardState und GetKeyBoardState gehen

[Tyrael Y.]

... kommt halt drauf an was er vor hat... aber er sagt ja nix :roll:

[bixi400]

Ich Brauche wenn man
die Taste drück das es im MemoFeld nicht
z.B. "<" Schreibt sondern "&lt;" (HTML).

[Matze]

Code:

procedure TForm1.Memo1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if VK_... then ...;
end;

[bixi400]

Mache ich ja Funktioniert aber nicht! :cry:

In der Hilfe Steht:

Delphi-Quellcode:

Key_Less      =   Taste Kleiner als (<)

Aber Wenn ich eingebe:

Delphi-Quellcode:

if Key=VK_Less then ...

Dann kommt die Fehler meldung:

Undefinierter bezeichner: VK_Less...

[Matze]

Mach doch mal zum Test das hier:

Code:

procedure TForm1.Memo1KeyDown(Sender: TObject; var Key: Word; 
  Shift: TShiftState); 
begin 
  if VK_... then Memo1.Color:=clyellow; 
end;

Wenn das memo dann gelb wird, dann weißt du, ob du bei vk_... das richtige eingegeben hast.
Ich weiß nicht, welche Abkürzung die Taste "<" hat.

[bixi400]

Delphi-Quellcode:

if KEY=VK_RETURN ...

Funktioniert schon! :wink:

Aber das, das in der
Hlfe steht Funktioniert nciht! :cry: