寻找spinedit控件，有没有人知道(10分)

这个spinedit既可以输入整数，也可以有小数的情况。
寻找一个只能输入数字的edit的控件

有没有人知道啊，我好可怜了。dfw没有同情心了。55555555555555

这种控件很多，我记的RxLib里的RxSpinEdit就有这种功能

是不是免费的，不要在IDE环境下也能运行。另外有没有单独的

我有

还是自己写一个吧。

给你一个我做的控件。
http://www.csdn.net/cnshare/soft/10/10864.shtm

to wr
下载了。不过好像容易出问题。

给我一个E-mail 我给你一个 控件.
是一网友给我的. 我作了一点修改. 相当好用
可以设置只允许输入 float , int ,string 等
还可以设置小数位数

{TEditN, TMEditN, TDBEditN

原作者 : Jose Maria Gias
- Version : 2.5 Delphi 2-3-4-5-6
- Date : 03.12.98
- Type : FreeWare
修改于 : 2002-08-01
}
unit EditNew;

interface

uses
{$IFDEF WIN32}Windows,{$ELSE}Winprocs,{$ENDIF}
Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, Mask, DBCtrls;

type
TEditTypes = (etString, etInteger, etFloat,etDate,etTime);
TEditAlign = (etAlignRight, etAlignLeft, etAlignCenter, etAlignNone, etAlignValue);

TEditN = class(TEdit)
private
{ Private declarations }
FOnEnter : TNotifyEvent;
FOnExit : TNotifyEvent;
FOnChange : TNotifyEvent;
I_Color : TColor;
E_Color : TColor;
FI_Color : TColor;
FE_Color : TColor;
TipoEdit : TEditTypes;
TipoAlign : TEditAlign;
KeyTab : Char;
LongAlign : Integer;
ValInteger : Integer;
ValFloat : Double;
SDecimal : Char;
EPrecision : Integer;
FUpper : Boolean;
FUpperList : String;
ValTemp : Extended;
TxtConvert : String;
FWidthOnFocus : Integer;
iWidth : Integer;
TextAtEnter : String;
PtrToData : Pointer;
sDate : Char;
sTime : Char;
FSeconds : Boolean;
ValDate : TDateTime;
ValTime : TDateTime;
protected
{Protected declarations}
procedure FormatDate;
procedure FormatTime;
public
procedure KeyPress(var Key: Char); override;
procedure DoEnter; override;
procedure DoExit; override;
procedure Change; override;
procedure SetInteger(VInteger : Integer);
procedure SetFloat(VFloat : Double);
procedure SetPtrToData(DataPtrointer);
procedure Update; // Not declare override because make stack overflow
constructor Create(AOwner : TComponent); override;
published
property OnEnter: TNotifyEvent read FOnEnter write FOnEnter;
property OnExit : TNotifyEvent read FOnExit write FOnExit;
property OnChange : TNotifyEvent read FOnChange write FOnChange;
property ColorOnFocus : TColor read I_Color write I_Color;
property ColorOnNotFocus : TColor read E_Color write E_Color;
property FontColorOnFocus : TColor read FI_Color write FI_Color;
property FontColorOnNotFocus : TColor read FE_Color write FE_Color;
property EditType : TEditTypes read TipoEdit write TipoEdit;
property EditKeyByTab : Char read KeyTab write KeyTab;
property EditAlign : TEditAlign read TipoAlign write TipoAlign;
property EditLengthAlign : Integer read LongAlign write LongAlign;
property EditPrecision : Integer read EPrecision write EPrecision;
property ValueFloat : Double read ValFloat write ValFloat;
property ValueInteger : Integer read ValInteger write ValInteger;
property ValueDate : TDateTime read ValDate write ValDate;
property ValueTime : TDateTime read ValTime write ValTime;
property TimeSeconds : Boolean read FSeconds write FSeconds;
property FirstCharUpper : Boolean read FUpper write FUpper;
property FirstCharUpList : String read FUpperList write FUpperList;
property WidthOnFocus : Integer read FWidthOnFocus write FWidthOnFocus;
end;

type
TMEditN = class(TMaskEdit)
private
{ Private declarations }
FOnEnter : TNotifyEvent;
FOnExit : TNotifyEvent;
I_Color : TColor;
E_Color : TColor;
FI_Color : TColor;
FE_Color : TColor;
FKeyTab : Char;
FWidthOnFocus : Integer;
iWidth : Integer;
protected
{ Protected declarations }
public
{ Public declarations }
procedure KeyPress(var Key: Char); override;
procedure DOEnter; override;
procedure DOExit ; override;
constructor Create(AOwner : TComponent); override;
published
{ Published declarations }
property OnEnter: TNotifyEvent read FOnEnter write FOnEnter;
property OnExit : TNotifyEvent read FOnExit write FOnExit;
property ColorOnFocus : TColor read I_Color write I_Color;
property ColorOnNotFocus : TColor read E_Color write E_Color;
property FontColorOnFocus : TColor read FI_Color write FI_Color;
property FontColorOnNotFocus : TColor read FE_Color write FE_Color;
property EditKeyByTab : Char read FKeyTab write FKeyTab;
property WidthOnFocus : Integer read FWidthOnFocus write FWidthOnFocus;
end;

type
TDBEditN = class(TDBEdit)
private
{ Private declarations }
FOnEnter : TNotifyEvent;
FOnExit : TNotifyEvent;
I_Color : TColor;
E_Color : TColor;
FI_Color : TColor;
FE_Color : TColor;
FKeyTab : Char;
FWidthOnFocus : Integer;
iWidth : Integer;
FUpper : Boolean;
FUpperList : String;
protected
{ Protected declarations }
public
{ Public declarations }
procedure KeyPress(var Key: Char); override;
procedure DOEnter; override;
procedure DOExit ; override;
constructor Create(AOwner : TComponent); override;
published
{ Published declarations }
property OnEnter: TNotifyEvent read FOnEnter write FOnEnter;
property OnExit : TNotifyEvent read FOnExit write FOnExit;
property ColorOnFocus : TColor read I_Color write I_Color;
property ColorOnNotFocus : TColor read E_Color write E_Color;
property FontColorOnFocus : TColor read FI_Color write FI_Color;
property FontColorOnNotFocus : TColor read FE_Color write FE_Color;
property EditKeyByTab : Char read FKeyTab write FKeyTab;
property FirstCharUpper : Boolean read FUpper write FUpper;
property FirstCharUpList : String read FUpperList write FUpperList;
property WidthOnFocus : Integer read FWidthOnFocus write FWidthOnFocus;
end;

procedure Register;

implementation

{$R EdNew32.res}

constructor TEditN.Create(AOwner : TComponent);
begin
inherited Create(AOwner);
ColorOnFocus := clWhite;
ColorOnNotFocus := clSilver;
Color := ColorOnNotFocus;
FontColorOnFocus := clRed;
FontColorOnNotFocus := clBlack;
TipoEdit := etString;
TipoAlign := etAlignNone;
LongAlign := 0;
KeyTab := #9; // #13 for Return by Tab
ValInteger := 0;
ValFloat := 0;
EPrecision := 0;
SDecimal := DecimalSeparator;
FUpper := False;
FUpperList := ' (';
FWidthOnFocus := 0;
TextAtEnter := '';
PtrToData := nil;
sDate := DateSeparator; // Windows Default
sTime := TimeSeparator; // Windows Default
FSeconds := False; // etTime with seconds
ValDate := Date;
ValTime := Time;
end;

procedure TEditN.SetPtrToData(DataPtrointer);
begin
PtrToData := DataPtr;
Update;
end;

procedure TEditN.Update;
begin
if Assigned(PtrToData) then begin
if EditType = etString then Text := string(PtrToData^);
if EditType = etInteger then Text := IntToStr(Integer(PtrToData^));
if EditType = etFloat then Text := FloatToStrF(Double(PtrToData^),ffgeneral,15,4);
if EditType = etDate then Text := DateToStr(TDateTime(PtrToData^));
if EditType = etTime then Text := TimeToStr(TDateTime(PtrToData^));
end;
Refresh;
inherited Update;
end;

procedure TEditN.KeyPress(var Key: Char);
var
(*
{$IFDEF VER80}
FEditTemp : TForm; {For Delphi 1}
{$ENDIF}

{$IFDEF VER90}
FEditTemp : TForm; {For Delphi 2}
{$ENDIF}

{$IFDEF VER100}
FEditTemp : TCustomForm; {For Delphi 3}
{$ENDIF}
*)
// {$IFDEF VER120}
FEditTemp : TCustomForm; {For Delphi 4}
// {$ENDIF}

C : String;
begin

if Key = EditKeyByTab then begin
FEditTemp := GetParentForm(Self);
SendMessage(FEditTemp.Handle, WM_NEXTDLGCTL, 0, 0);
Key := #0;
end else begin

// If ESC is pressed during edit, all changes are cancelled
// Si se ha pulsado escape, se anulan los cambios
if Key = #27 then begin
Text := TextAtEnter;
Key := #15;
end;

//Permitted characters in function of type
// Caracteres permitidos en funci髇 del tipo
Case EditType of
etString :
if FUpper then begin // Capital letter - Ma齯sculas
if (Length(Text) = 0) or
(SelText = Text) or
(Pos(Text[Length(Text)],FUpperList) > 0) then begin
C := AnsiUpperCase(Key);
Key := C[1];
end;
end;

etInteger :
begin
if ((Pos('-',Text) > 0) or (Key = '-')) and (MaxLength = 0)
then MaxLength := 11;

if (not (Key in ['0'..'9','-',#8,#13,#35,#36,#37,#39])) or
(Key = #32) or // To eliminate the introduction from spaces
((Key = '-') and (Pos('-',Text) > 0)) // To verify that alone is introduce a negative sign.
then Key := #15;

end;

etFloat :
begin
if (not (Key in ['0'..'9',',','.','-',#8,#13,#35,#36,#37,#39])) or
(Key = #32) or // To eliminate the spaces introduction
((Key = '-') and (Pos('-',Text) > 0)) // To verify that alone is introduce a negative sign.
then Key := #15;

if (Key = ',') or (Key = '.') then
if (Pos(',',Text) > 0) or (Pos('.',Text) > 0)
then Key := #15
else Key := DecimalSeparator;

end;

etDate, etTime :
if not (Key in ['0'..'9',#8,#13,#35,#36,#37,#39])
then Key := #15;

end; // Case EditType of
end; // if Key <> EditKeyByTab

if Key <> #0 then inherited KeyPress(Key);

end;

procedure TEditN.DoEnter;
begin
// To assign the Color upon receiving the focus
if (EditType = etFloat) and (MaxLength = 0) then MaxLength := 16;
Color := ColorOnFocus;
Font.Color := FontColorOnFocus;
TextAtEnter := Text;

if WidthOnFocus > 0 then begin
iWidth := Width;
Width := FWidthOnFocus;
end;

// If a connection to a variable exists, Update the contents of the field with
// the contents of the connected variable in case the variable has changed.
if Assigned(PtrToData) then Update;

if EditType = etDate then MaxLength := 10;

if EditType = etTime then
if TimeSeconds then MaxLength := 8
else MaxLength := 5;

if Assigned(FOnEnter) then FOnEnter(Self);
end;

procedure TEditN.DoExit;
var
k : Integer;
s : String;
begin

// To return the color of the fund upon leaving and losing the focus
Color := ColorOnNotFocus;
Font.Color := FontColorOnNotFocus;
if ((edittype= etfloat) or (edittype=etinteger)) and (trim(text)='') then
text:='0';
if WidthOnFocus > 0 then Width := iWidth;

if (EditType = etString) and (Length(Text) > 0) then begin

if FUpper then begin
if Length(Text) = 1 then Text := AnsiUpperCase(Text);
if Length(Text) > 1 then Text := AnsiUpperCase(Text[1]) + Copy(Text,2,Length(Text)-1);
end;

if (EditAlign <> etAlignNone) and (EditLengthAlign > 0) then begin // With Alignment

// The length of the chain is < that that of Align.
if (EditLengthAlign > Length(Text)) then
Case EditAlign of
etAlignLeft :
begin
while Text[1] = ' ' do Text := Copy(Text,2,Length(Text)-1);
for k := 1 to EditLengthAlign - Length(Text) do Text := Text + ' ';
end;

etAlignRight :
begin
for k:= 1 to EditLengthAlign - Length(Text) do Text := ' ' + Text;
end;

etAlignCenter:
begin
for k := 1 to Round((EditLengthAlign - Length(Text))/2) do Text := ' ' + Text;
for k := Length(Text) to EditLengthAlign do Text := Text + ' ';
end;

end; // Case EditAlign
end; // if (EditLengthAlign > Length(Text))
end; // if (EditAlign <> etAlignNone) and (EditLengthAlign > 0)

// To align a string Integer, filling with zeroes, if it has been indicated.
// The negative sign if exists, counts it as a digit but
if (EditType = etInteger) and
(EditAlign = etAlignValue) and
(EditLengthAlign > 0) then
if Length(Text) < EditLengthAlign then
for k := Length(Text) to EditLengthAlign - 1 do Text := '0' + Text;

// To put the negative sign to the beginning of the chain. It has been designed
// so that the negative sign could be introduced in any place, and here we happen
// it to the beginning
if ((EditType = etInteger) or (EditType = etFloat)) and (Pos('-',Text) > 1) then
if Length(Text) = Pos('-',Text)
then Text := '-' + Copy(Text,1,Pos('-',Text)-1)
else Text := '-' +
Copy(Text,1,Pos('-',Text)-1) +
Copy(Text,Pos('-',Text) + 1,Length(Text) - Pos('-',Text));

// If it has been defined precision, gives format to the string
if (EditType = etFloat) and (EditPrecision > 0) then begin
if Length(Text) = 0 then Text := '0';
SDecimal := DecimalSeparator;
if Pos(SDecimal,Text) = 0 then begin
Text := Text + SDecimal;
for k := 1 to EditPrecision do Text := Text + '0';
end else begin
if Length(Text) - Pos(SDecimal,Text) > EditPrecision then
Text := Copy(Text,1,Pos(SDecimal,Text) + EditPrecision);
if Length(Text) - Pos(SDecimal,Text) < EditPrecision then
for k := Length(Text) - Pos(SDecimal,Text) + 1 to EditPrecision do Text := Text + '0';
end;
end;

// To align a string Float, filling of zeroes, if it has been indicated.
// The negative sign if exists and the separating decimal, the account as a digit but
if (EditType = etFloat) and
(EditAlign = etAlignValue) and
(EditLengthAlign > 0) then
if Length(Text) < EditLengthAlign then
for k := Length(Text) to EditLengthAlign - 1 do Text := '0' + Text;

if EditType = etDate then FormatDate;

if EditType = etTime then FormatTime;

// Update the connected variable with the current value
if Assigned(PtrToData) then begin
if EditType = etInteger then Move(ValueInteger, PtrToData^, Sizeof(ValueInteger));
if EditType = etFloat then Move(ValueFloat, PtrToData^, Sizeof(ValueFloat));
if EditType = etDate then Move(ValueDate, PtrToData^, Sizeof(ValueDate));
if EditType = etTime then Move(ValueTime, PtrToData^, Sizeof(ValueTime));
if EditType = etString then begin
s := Text;
Move(s, PtrToData^, Sizeof(s));
end;
end;

if Assigned(FOnExit) then FOnExit(Self);
end;

procedure TEditN.Change;
var
i : Integer;
C : String;
begin
// To convert the chain if it is numerical,to return a value
if ((EditType = etInteger) or (EditType = etFloat)) and
(Length(Text) > 0) then begin

if EditType = etInteger then begin
for i := 1 to Length(Text) do begin
if Text in ['0'..'9','-','+'] then C := C + Text
end;
Text := C;
end;

if EditType = etFloat then begin
for i := 1 to Length(Text) do begin
if Text in ['0'..'9',',','.','-','+'] then C := C + Text
end;
Text := C;
end;

if Length(Text) = 0 then begin
if Assigned(FOnChange) then FOnChange(Self);
Exit;
end;

try
ValueFloat := 0;
ValueInteger := 0;

// Eliminar caracteres no permitidos y cambiar el signo - al comienzo para
// que no de error de conversi髇
i := 1;
while i <= Length(Text) do
if not (Text in ['0'..'9',',','.','-'])
then Text := Copy(Text,1,i-1) + Copy(Text,i+1,Length(Text)-i)
else i := i + 1;

// Si solo tenemos el signo negativo, dar韆 error
if (Pos('-',Text) = 1) and (Length(Text) = 1) then Exit;

// Temporary variable to accomplish the conversion
TxtConvert := Text;

// To put the negative sign to the beginning
if (EditType <> etString) and (Pos('-',TxtConvert) > 1) then
if Length(TxtConvert) = Pos('-',TxtConvert)
then TxtConvert := '-' + Copy(TxtConvert,1,Pos('-',TxtConvert)-1)
else TxtConvert := '-' +
Copy(TxtConvert,1,Pos('-',TxtConvert)-1) +
Copy(TxtConvert,Pos('-',TxtConvert) + 1,Length(TxtConvert) - Pos('-',TxtConvert));

if EditType = etInteger then begin
// Range control of Integer
ValTemp := StrToFloat(TxtConvert);
if (ValTemp > 2147483647) or (ValTemp < -2147483647) then begin
ShowMessage('Range Max. : -2147483647 <-> 2147483647');
ValueInteger := 0;
end else begin
ValueInteger := StrToInt(TxtConvert);
ValueFloat := StrToFloat(TxtConvert + sDecimal + '0'); {New in Version 2.0}
end;
end;

// El tipo Float - Double, permite valores hasta 5.0 * 10e-324 .. 1.7 * 10e308
// con 15-16 digitos significativos, por lo que solamente controlamos que el total
// no pase de 16 digitos. Hasta la fecha no he experimentado con valores Float tan
// altos, por lo que no me atrevo a condicionar algo que no conozco con exactitud.}
if EditType = etFloat then begin
ValueFloat := StrToFloat(TxtConvert);
ValueInteger := Trunc(ValueFloat);
end;

except
on EConvertError do begin
ShowMessage('Range Max. :' + #13 +
' - Integer : -2147483647 <-> 2147483647' + #13 +
' - Float : 5.0e-324 <-> 1.7e+308');
ValueInteger := 0;
ValueFloat := 0;
end;
end;
end;

if Assigned(FOnChange) then FOnChange(Self);
end;

procedure TEditN.SetInteger(VInteger : Integer);
begin
if EditType = etInteger then Text := IntToStr(VInteger);
end;

procedure TEditN.SetFloat(VFloat : Double);
begin
if EditType = etFloat then Text := FloatToStr(VFloat);
end;

procedure TEditN.FormatDate;
var
Temp,vDate,vMonth,vYear : String;
dDate : TDateTime;
ilength : Integer;
begin
// Decode the Date
Temp := '';
vDate := FormatDateTime('dd' + sDate + 'mm' + sDate + 'yyyy',Date);
vMonth := Copy(vDate,4,2);
vYear := Copy(vDate,7,4);

// Quitar separador de fecha si existe
if Length(Text) > 0 then
for iLength := 1 to Length(Text) do
if Text[iLength] in ['0'..'9']
then Temp := Temp + Text[iLength];

// Completar la fecha con separadores
iLength := Length(Temp);
Case iLength of
0 : Temp := vDate;
1 : Temp := '0' + Temp[1] + sDate + vMonth + sDate + vYear;
2 : Temp := Temp + sDate + vMonth + sDate + vYear;
3 : Temp := Copy(Temp,1,2) + sDate + '0' + Temp[3] + sDate + vYear;
4 : Temp := Copy(Temp,1,2) + sDate + Copy(Temp,3,2) + sDate + vYear;
5 : Temp := Copy(Temp,1,2) + sDate + Copy(Temp,3,2) + sDate + Copy(vYear,1,3) + Temp[5];
6 : Temp := Copy(Temp,1,2) + sDate + Copy(Temp,3,2) + sDate + Copy(vYear,1,2) + Copy(Temp,5,2);
7 : Temp := Copy(Temp,1,2) + sDate + Copy(Temp,3,2) + sDate + vYear[1] + Copy(Temp,5,3);
8,9,10 : Temp := Copy(Temp,1,2) + sDate + Copy(Temp,3,2) + sDate + Copy(Temp,5,4);
end;

// Test of correct Date
try
dDate := StrToDate(Temp);
except
ShowMessage('Date incorrect');
// On error, the Date is actually for default
ValueDate := Date;
ValueFloat := Date; // TDateTime : Double;
ValueInteger := Trunc(Date);
Exit;
end;

// The Date is correct. Assign value
Text := Temp;
ValueDate := StrToDate(Temp);
ValueFloat := ValueDate; // TDateTime : Double;
ValueInteger := Trunc(ValueDate);
end;

procedure TEditN.FormatTime;
var
Temp,vTime,vMin,vSec,MskTime : String;
iLength : Integer;
tTime : TDateTime;
begin
Temp := '';
MskTime := '00' + sTime + '00' + sTime + '00';
vTime := FormatDateTime('hh:mm:ss',Time);
vMin := Copy(vTime,4,2);
vSec := Copy(vTime,7,2);

// Quitar separadores si los hay
if Length(Text) > 0 then
for iLength := 1 to Length(Text) do
if Text[iLength] in ['0'..'9'] then Temp := Temp + Text[iLength];

// Formatear el tiempo
iLength := Length(Temp);
if TimeSeconds then begin // Con segundos
Case iLength of
0 : Temp := vTime;
1 : Temp := '0' + Temp[1] + Copy(MskTime,3,6);
2 : Temp := Temp + Copy(MskTime,3,6);
3 : Temp := Copy(Temp,1,2) + sTime + '0' + Temp[3] + Copy(MskTime,6,3);
4 : Temp := Copy(Temp,1,2) + sTime + Copy(Temp,3,2) + Copy(MskTime,6,3);
5 : Temp := Copy(Temp,1,2) + sTime + Copy(Temp,3,2) + sTime + '0' + Temp[5];
6,7,8 : Temp := Copy(Temp,1,2) + sTime + Copy(Temp,3,2) + sTime + Copy(Temp,5,2);
end;
end else begin // Sin segundos
Case iLength of
0 : Temp := vTime;
1 : Temp := '0' + Temp[1] + Copy(MskTime,3,3);
2 : Temp := Temp + Copy(MskTime,3,3);
3 : Temp := Copy(Temp,1,2) + sTime + '0' + Temp[3];
4,5 : Temp := Copy(Temp,1,2) + sTime + Copy(Temp,3,2);
end;
end;

// Test of string-time
try
tTime := StrToTime(Temp);
except
ShowMessage('Time incorrect');
if TimeSeconds then Text := vTime else Text := Copy(vTime,1,5);
ValueTime := Time;
ValueFloat := ValueTime;
Exit;
end;
// The time is correct
Text := Temp;
ValueTime := StrToTime(Temp);
ValueFloat := ValueTime;
end;

{***************************************************************************}
constructor TMEditN.Create(AOwner : TComponent);
begin
inherited Create(AOwner);
ColorOnFocus := clWhite;
ColorOnNotFocus := clSilver;
Color := ColorOnNotFocus;
FontColorOnFocus := clRed;
FontColorOnNotFocus := clBlack;
FWidthOnFocus := 0;
FKeyTab := #9;
end;

procedure TMEditN.KeyPress(var Key: Char);
var
(* {$IFDEF VER80}
FEditTemp : TForm; {For Delphi 1}
{$ENDIF}

{$IFDEF VER90}
FEditTemp : TForm; {For Delphi 2}
{$ENDIF}

{$IFDEF VER100}
FEditTemp : TCustomForm; {For Delphi 3}
{$ENDIF}
*)
// {$IFDEF VER120}
FEditTemp : TCustomForm; {For Delphi 4}
// {$ENDIF}

begin
if Key = EditKeyByTab then begin
FEditTemp := GetParentForm(Self);
SendMessage(FEditTemp.Handle, WM_NEXTDLGCTL, 0, 0);
Key := #0;
end;

if Key <> #0 then inherited KeyPress(Key);
end;

procedure TMEditN.DoEnter;
begin
// To assign the Color upon receiving the focus
Color := ColorOnFocus;
Font.Color := FontColorOnFocus;
if WidthOnFocus > 0 then begin
iWidth := Width;
Width := FWidthOnFocus;
end;

if Assigned(FOnEnter) then FOnEnter(Self);
end;

procedure TMEditN.DoExit;
begin
// To return the color of the fund upon leaving and losing the focus
Color := ColorOnNotFocus;
Font.Color := FontColorOnNotFocus;
if WidthOnFocus > 0 then Width := iWidth;

if Assigned(FOnExit) then FOnExit(Self);
end;

{***************************************************************************}
constructor TDBEditN.Create(AOwner : TComponent);
begin
inherited Create(AOwner);
ColorOnFocus := clWhite;
ColorOnNotFocus := clSilver;
Color := ColorOnNotFocus;
FontColorOnFocus := clRed;
FontColorOnNotFocus := clBlack;
FUpper := False;
FUpperList := ' (';
FWidthOnFocus := 0;
FKeyTab := #9;
end;

procedure TDBEditN.KeyPress(var Key: Char);
var
(* {$IFDEF VER80}
FEditTemp : TForm; {For Delphi 1}
{$ENDIF}

{$IFDEF VER90}
FEditTemp : TForm; {For Delphi 2}
{$ENDIF}

{$IFDEF VER100}
FEditTemp : TCustomForm; {For Delphi 3}
{$ENDIF}
*)
// {$IFDEF VER120}
FEditTemp : TCustomForm; {For Delphi 4}
// {$ENDIF}

c : String;
begin
if Key = EditKeyByTab then begin
FEditTemp := GetParentForm(Self);
SendMessage(FEditTemp.Handle, WM_NEXTDLGCTL, 0, 0);
Key := #0;
end;

if FUpper then begin // Capital letter - Ma齯sculas
if (Length(Text) = 0) or
(SelText = Text) or
(Pos(Text[Length(Text)],FUpperList) > 0) then begin
C := AnsiUpperCase(Key);
Key := C[1];
end;
end;

if Key <> #0 then inherited KeyPress(Key);
end;

procedure TDBEditN.DoEnter;
begin
// To assign the Color upon receiving the focus
Color := ColorOnFocus;
Font.Color := FontColorOnFocus;
if WidthOnFocus > 0 then begin
iWidth := Width;
Width := FWidthOnFocus;
end;

if Assigned(FOnEnter) then FOnEnter(Self);
end;

procedure TDBEditN.DoExit;
begin
// To return the color of the back upon leaving and losing the focus
Color := ColorOnNotFocus;
Font.Color := FontColorOnNotFocus;
if WidthOnFocus > 0 then Width := iWidth;

if Assigned(FOnExit) then FOnExit(Self);
end;

procedure Register;
begin
RegisterComponents('myvcl', [TEditN]);
RegisterComponents('myvcl', [TMEditN]);
RegisterComponents('myvcl', [TDBEditN]);
end;

end.

可以自己写呀
在onchange里写
if not (key in ['0'..'9']) then
key:=#0

多人接受答案了。