Format Masukan Angka Pada TextEdit di Delphi

Ada kalanya kita memerlukan format masukan pada TEdit atau TDBEdit dimana kita menginginkan agar inputan yang diterima hanya berupa angka saja. Berikut sedikit tips dan trik nya :

1. Buat sebuah method/procedure seperti berikut dibawah ini :

procedure EditInputNomor(var txtEdit : TEdit);
var
defstyle: dWord;
begin
defstyle := GetWindowLong(txtEdit.Handle, GWL_STYLE);
SetWindowLong(txtEdit.Handle, GWL_STYLE, defstyle or ES_NUMBER);
end;

parameter txtEdit bisa bertipe TEdit atau TDBEdit sesuai kebutuhan.

2. Selanjutnya pada event onCreate form, panggil procedure tsb, seperti berikut di bawah ini :

procedure TForm1.FormCreate(Sender: TObject);
begin
EditInputNomor(Edit1);
EditInputNomor(Edit2);
EditInputNomor(Edit3);
end;


Semoga bermanfaat, salam sejahtera.