Sadece Numara girişi yapılabilecek alan

[stnonstop]

Acaba sadece numara girişi yapabileceğimiz. Maskedit bileşeni dışında bir bileşen var mı?

[mussimsek]

İpuçlarında örnek vardı. Siteye bir bak.

İlla da hazır bileşen dersen : http://www.torry.net

Kolay gelsin.

[stnonstop]

Saolun öneriniz için fakat işimi JVcl den TJvCalcEdit ile çözdüm teksorun kullanıcı alt Down yapınca hesap makinası açılıyor. Neyse oda bizde hediye olsun :p

[aslangeri]

s.a.
HusoEdit var

[The_MeLiX]

Kod: Tümünü seç

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if ( StrScan('0123456789.-',Key) <> nil ) or
     ( Key = Char(VK_BACK) ) then
  begin

  end
  else
    Key := #0;
end;

//yalnız harf girme
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if ((UpCase(Key) < 'A') or (UpCase(Key) > 'Z')) then
   Key := #0;

end;

[fduman]

Kod: Tümünü seç

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if ( StrScan('0123456789.-',Key) <> nil ) or
     ( Key = Char(VK_BACK) ) then
  begin

  end
  else
    Key := #0;
end;
.....

Bu daha iyi...

Kod: Tümünü seç

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if not (Key in ['0'..'9', #8]) then
    Key := #0;
end;

[mege]

orpheus ta numericfield edit var ama kullanmayın

[drony]

daha basit bir önrnek
editin onkeypress olayına

if not key in ['0'..'9',#08] then key=#0;

büyük ihtimal çalışır.. deneme imkanım yok okuldayım

edit: coderlord yazmış zaten