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/
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
Reviewed by Syawaluddin Amin, S.Kom
on
Mei 18, 2013
Rating:
Tidak ada komentar: