Nimm das KeyUp-Event und nicht das KeyDown:
Delphi-Quellcode:
procedure TForm1.FormKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
if Key = Ord(VK_UP) then
begin
Key := 0;
ShowMessage('Hi');
end;
end;
Vielen dank, diese Variante funktioniert
