Code:
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
//provera unosa
if not (Key in ['0'..'9', #8]) then // #8 Backspace
begin
Key := #0; //u slucaju slova ne ispisi karakter na Edit kontrolu
ShowMessage('Unesi samo broj');
end;
end;
Ovo je samo jedno od mogucih resenja, a mozes koristiti i komponentu MaskEdit
Pozdrav.
Daj coveku ribu, nahranio si ga za jedan dan. Nauci ga da lovi i nahranices ga za ceo zivot...