Kali ini saya ingin berbagi sedikit ilmu tentang bagaimana cara menginputkan hanya angka saja pada program delphi. Untuk memulai siapkan form kosong setelah itu pilih Edit pada component standard lalu Tab Events pilih OnKeyPress klik 2x lalu ketik or copas coding berikut :
procedure TForm1.Edit1KeyPress(Sender:TObject,var Key: Char);
begin
if not(key in['0'..'9',#8]) then key:=#0;
end;
end.
Untuk melihat hasil silahkan anda Run atau tekan F9. Selamat Mencoba
Download Source code
0 komentar:
Post a Comment