procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
If not(Key in['0'..'9',#8]) then Key:=#0
end;
Description:
Script ini ditempatkan di komponen "Edit1" on "Events: onkeypress"
Sehingga data yang bisa diinputkan hanya ANGKA saja, sedangkan huruf tidak bisa.
EmoticonEmoticon