TEdit, TSpinEdit

Code:

unit Unit1;

{©Drkb v.3: www.drkb.ru,

®Vit (Vitaly Nevzorov) - Этот адрес электронной почты защищён от спам-ботов. У вас должен быть включен JavaScript для просмотра.}

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls;

type

TForm1 = class(TForm)

   Edit1: TEdit;

   procedure Edit1Change(Sender: TObject);

   procedure FormCreate(Sender: TObject);

private

   EditValue:string;

public

   { Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Edit1Change(Sender: TObject);

var selstart, sellength:integer;

begin

if Edit1.Text='' then

   begin

     Edit1.Text:='0';

     Edit1.SelStart:=1;

     Edit1.SelLength:=0;

     Exit;

   end; 

try

   strtofloat(Edit1.Text);

   EditValue:=Edit1.Text;

except

   selstart:=Edit1.SelStart;

   sellength:=Edit1.SelLength;

   Edit1.Text:=EditValue;

   Edit1.SelStart:=selstart;

   Edit1.SelLength:=sellength;

end;

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

EditValue:='0';

Edit1.Text:=EditValue;

end;

end.