procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
If not(Key in['a'..'z']) then
Key:=#0
end;
Description:
Script ini ditempatkan pada komponen "Edit1" on "Event: onkeypress"
Sehingga data hanya bisa input HURUF saja, sedangkan angka tidak dapat
EmoticonEmoticon