unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls, ComCtrls;typeTForm1 = class(TForm)ud1: TUpDown;edt1: TEdit;lbl1: TLabel;lbl2: TLabel;lbl3: TLabel;edt2: TEdit;ud2: TUpDown;lbl4: TLabel;lbl5: TLabel;lbl6: TLabel;lbl7: TLabel;btn1: TButton;lbl8: TLabel;procedure btn1Click(Sender: TObject);procedure FormCreate(Sender: TObject);private{ Private declarations }public{ Public declarations }end;varForm1: TForm1;implementation{$R *.dfm}procedure TForm1.FormCreate(Sender: TObject);
beginud1.Associate:= edt1;  //在窗体创建的时候，通过将ud1的Associate属性设置为edt1，将两个组件联系在一起，就可以通过ud1对edt1中的数字进行增减了ud2.Associate:= edt2;    //作用同上
end;procedure TForm1.btn1Click(Sender: TObject);
varres: Integer;plus1: Integer;plus2: Integer;
beginplus1:= StrToInt(edt1.Text);   //可以使用该方式获取编辑框中的值  //TEdit的Text属性是string类型plus2:= ud2.Position;    //因为ud2.Associate:= edt2; 所以ud2与edt2联系在一起，所以也可以使用这样的方式获取编辑框中的值    // UpDown的Position属性是SmallInt类型res:= plus1 + plus2;lbl4.Caption:= IntToStr(plus1);lbl6.Caption:= IntToStr(plus2);lbl8.Caption:= IntToStr(res);
end;end.

procedure Tform1.Edit1KeyPress(Sender: TObject; var Key: Char);
varedt: TEdit;str, strL, strR: string;p: integer;
begin// 获取当前文本内容, 注意要去掉选中部分(因为会被改写).edt := TEdit(Sender);str := edt.text;if Length(edt.SelText) <> 0 thenbeginstrL := LeftStr(edt.text, edt.SelStart);strR := RightStr(edt.text, Length(edt.text) - edt.SelStart - edt.SelLength);str := strL + strR;end;// 限制输入数字/小数点/退格键if not (Key in [#8, #13, #127, '.', '-', '0'..'9']) then Key := #0;//限制只能输入一个小数点if Key = '.' thenbeginp := Pos('.', edt.Text);if p > 0 then Key := #0;end;//限制只能在第一位输入且只能输入一个'-'号if Key = '-' thenbeginif edt.SelStart > 0 then Key := #0;p := Pos('-', edt.Text);if p > 0 then Key := #0;end;
end;//要uses StrUtils单元
如果程序里有很多的TEdit要做此限制，当然不必给每个控件写代码，把事件指定到同一个过程就行了。