Membatasi Input Pada Textbox di Delphi

Caranya dengan membuat event onkeypress di textbox.

Contoh prosedurnya untuk membatasi inputan berupa angka.

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if not (Key in [#8, '0'..'9']) then begin
    ShowMessage('Invalid key: ' + Key);
    Key := #0;
  end;
end;

Kode di atas berarti hanya memperbolehkan inputan berupa angka 0-9 dan karakter 8 (Backspace). Jika input selain angka atau backspace maka akan menampilkan pesan Invalid key.

Contoh prosedur untuk membatasi inputan berupa huruf dan angka.

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if not (Key in [#8, 'a'..'z', 'A'..'Z', '0'..'9']) then begin
    ShowMessage('Invalid key: ' + Key);
    Key := #0;
  end;
end;