Hanya Input Angka di Delphi

Bismillah.
Kali ini saya akan share bagaimana caranya hanya angka yang bisa di input di edit pada delphi.
berikut syntaxnya.
_____________________________________________________________
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
If not(Key in['0'..'9',#8]) then Key:=#0
end;
_____________________________________________________________
Have a nice code : http://pangeran-it.blogspot.com/
Hanya Input Angka di Delphi Hanya Input Angka di Delphi Reviewed by Syawaluddin Amin, S.Kom on Mei 18, 2013 Rating: 5

Tidak ada komentar:

Diberdayakan oleh Blogger.