Virtuelle Tastencodes

[Alex]

<pre>
Hallo,
ich möchte ein Ereignis auslösen, wenn die Entf.-Taste gedrückt
wurde. Wenn ich folegenden Code benutze passiert nichts:
if key = chr(VK_DELETE) then showmessage('geht!');
Mit den Tasten Return, ESC und allen Buchstaben und Zahlen gehts.
Meine Abfrage mache ich im Ereignis onKeyPress.
Danke für jede Hilfe...
</pre>

[Gast_1]

<p><a href="http://www.ensacom.de">www.ensacom.de</a></p><P>
Da gibt es unter Delphi/Tips + Sources/System, die komplette<BR>
Liste der viertuellen Tastencodes

[Thomas Melchert]

<p>Hallo Alex,<br>
<br>
Das Ereigniss <b>OnKeyPress</b> ist für diese Aktion nicht geeignet, weil dort normalerweise keine Sondertasten ankommen. Du musst das entweder das Ereignis <b>OnKeyDown</b> oder <b>OnKeyUp</b> benutzen.<br>
<pre>
procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if (key=VK_DELETE) then ShowMessage('geht...');
end;
</pre>
Gruß Thomas</p&gt

[Thomas Melchert]

<p>Hallo Alex,<br>
<br>
Das Ereigniss <b>OnKeyPress</b> ist für diese Aktion nicht geeignet, weil dort normalerweise keine Sondertasten ankommen. Du musst entweder das Ereignis <b>OnKeyDown</b> oder <b>OnKeyUp</b> benutzen.<br>
<pre>
procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if (key=VK_DELETE) then ShowMessage('geht...');
end;
</pre>
Gruß Thomas</p&gt

[Alex]

Danke für die schnelle Antwort. Ich dachte es ist unwichtig welches Ereignis ich für die Abfrage nutze. Ich wusste nicht, dass zwischen den Tasten unterschieden wird und dachte das die Variable Key in jedem Ereignis gleiche Werte annehmen kann. Danke nochmal