关于edit的简单问题！

Question

怎么做这样一个edit：1.只能输入数字2.在edit后有两个上下箭头,按上edit中数字加1按下数字减1!

Answer 1

delphi面板上Samples页上的SpinEdit1

Answer 2

利用win32面板中的UpDown控件
设置UpDown控件的Associate属性为指定的Edit即可

Answer 3

这个东东你用一个UPDOWN控件与EDIT控件不就行了吗？
指定UPDOWN控件的Asociate属性为edit1

Answer 4

在Edit的OnKeyPress和OnKeyDown事件中：
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
 if not (key in ['0'..'9']) then
    key:=#0;
end;procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  case Key of
    VK_DOWN:  Edit1.Text := IntToStr(StrToInt(Edit1.Text)-1);
    VK_UP:    Edit1.Text := IntToStr(StrToInt(Edit1.Text)+1);
  end;
end;

Answer 5

在Edit的OnKeyPress事件中加入一下代码即可。
procedure Tfrmdiaobo.z_idKeyPress(Sender: TObject; var Key: Char);
begin
    if ( key in ['0'..'9'])or(key=chr(13))or(key=chr(vk_back))or(key=chr(vk_tab)) then
       else key:=#0;
     if  key=#13 then
     begin
      key:=#0;
      PostMessage(Handle,WM_KEYDOWN,VK_TAB,0);
     end;
end;

Answer 6

如要再加上下箭头，再用一个updown控件即可