请教高手：在edit1.keypress事件中 if key=#110 then edit1.text:='<'.但检测不到‘DEL'键，仍旧输入’.’

Question

在ONKEYDOWN里面，onkeypress只能截获字符

Answer 1

要修改当前按键在OnKeyDown中进行操作就行了if Key = VK_DELETE then
begin
  Edit1.text := '<' ;
  Key := 0 ;
end ;

Answer 2

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);这两个事件的 key 的类型不一样，所以只能使用onkeydown ，如楼上。

Answer 3

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);