Input Angka pada Editor

Input yang diperbolehkan hanya berupa angka pada komponen yang berbasis editor (TEdit, TMemo) tanpa memblok secara manual char code pada event OnKeyPress. Karakter secara otomatis akan difilter.

Jika sebelumnya telah dibahas mengenai Input Angka pada TEdit, sekarang dengan cara berbeda kita dapat mem-blok karakter input selain angka.

Deklarasi procedure:

procedure EditModeAngka(hnd: hWnd);
var
  h: dWord;
begin
  h:= GetWindowLong(hnd, GWL_STYLE);
  SetWindowLong(hnd, GWL_STYLE, h or ES_NUMBER)
end;

Contoh implementasi:

procedure TForm1.FormCreate(Sender: TObject);
begin
  EditModeAngka(Edit1.Handle);
  EditModeAngka(Memo1.Handle);
end;

Jika kita mencoba menginputkan karakter selain angka, maka secara otomatis akan ditampilkan informasi berupa Ballon Hint bahwa input tidak diperbolehkan, seperti informasi “Caps Lock ON” pada saat kita meng-edit password.