Eeee sad vidim sta hoces, ali to nece ici tako lako. Ako hoces da pravis nove komponente, potrazi medju topicima "Dodavanje novih komponenti", mislim da Srki_82 objasnjavao kako se to radi.
A za ovo sto tebi treba, bice ti dobar i obican Edit (bez maske). Sve sto treba da uradis, je sledece:
Kreiraj novi Edit, idi na event OnExit, dupli klik.
Pojavice ti se procedura TForm1.Edit1Exit.
Umesto nje upisi ovaj kod, pa ga menjaj po potrebi.
Ne dozvoljava tekst, samo unos ispravnih brojeva, sa ili bez zareza.
Code:
procedure TForm1.Edit1Exit(Sender: TObject);
var
B:Real;
i,Tacaka:Integer;
Ok:Boolean;
begin
Tacaka := 0;
Ok := True;
if Edit1.text='' then
Edit1.Text:='0';
for i := 1 to length(edit1.text) do
begin
if edit1.Text[i]='.' then
inc(Tacaka)
else
ok := ok and (ord(edit1.Text[i])>= ord('0'))and (ord(edit1.Text[i])<= ord('9'));
end;
if Ok and (tacaka <2) then
begin
B:= strtofloat(edit1.text);
edit1.Text:= format('%20.2f',[b]);
end
else
begin
showmessage('greska');
edit1.setfocus;
end;
end;