tEdit Eingabe beschränkung

[Sandi007]

Als Bastler würde ich diesen Code hier empfehlen, ohne Anspruch auf Vollständigkeit der Tasten:

Delphi-Quellcode:

procedure TForm1.Edit4KeyPress(Sender: TObject; var Key: Char);
begin // nur Zahleneingaben im TEdit zulassen:
  if CharInSet(Key,['A'..'z','!','"','§','$','%','&','/','(',')','=','?','+','*',
                             '-','#',',','.','_','ß',':',';',' ']) then
    begin
      key:=#0;
    end
end;

Viel Spaß