Einzelnen Beitrag anzeigen

Sandi007

Registriert seit: 29. Mär 2011
Ort: Milchstraße (Eine Info, nichts für Erbsenzähler.)
12 Beiträge
 
#7

AW: tEdit Eingabe beschränkung

  Alt 12. Feb 2018, 17:27
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ß
while Leser = Sichtbar do begin Winken End;
  Mit Zitat antworten Zitat