delete键怎么就锁不住的呢

Question

procedure TForm1.SpinEdit1Change(Sender: TObject);
begin
  if TSpinEdit(Sender).Text = '' then
    TSpinEdit(Sender).Text := '0';
end;

Answer 1

procedure TForm1.SpinEdit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  case Key of
    VK_DELETE: Key := 0;
  end;
end;

Answer 2

在事件KeyPress(Sender: TObject; var Key: Char)中无法捕捉到
如Delete,Left,Up,Right,Down等系统功能键

Answer 3

呵呵，你在onKeyDown里再加入一行，双管齐下：
procedure TForm1.SpinEdit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key=vk_delete then
    key:=0
end;