tEdit Eingabe beschränkung

[hewy]

Hallo
mein Thema wurde sicher auch schon besprochen, kann aber nichts wirklich passendes finden.
Also: ich arbeite mit Delphi XE5. Und hier meine Frage:
wie beschränke ich am besten die Zeichen welche in ein tEdit eingegeben werden dürfen, und sowohl über Tatstatur Eingabe wie auch mit copy - paste. Z.B. nur a..z und A..Z und 0..9 plus .,;:-_+
Mache ich sowas über keydown geht es nicht für Past aus der Zwischenablage.
Gibt es eine Sinnvolle und effiziente Lösung dafür?
Besten Dank und Gruss
hewy

[hathor]

Edit1Change

http://www.delphi-treff.de/tipps/kom...aben-zulassen/

[hewy]

Danke für den Link, so hab ich es bisher gemacht. Funktioniert das auch mit Unicode?

[DeddyH]

Japp, nur solltest Du dort CharInSet verwenden, also statt

Delphi-Quellcode:

in not (CharVariable in [Menge])

besser

Delphi-Quellcode:

if not CharInSet(CharVariable, [Menge])

[hewy]

Oh danke alles klar, so funktioniert es.

[himitsu]

Zitat:

Zitat von hewy (Beitrag 1247372)

Danke für den Link, so hab ich es bisher gemacht. Funktioniert das auch mit Unicode?

Jain, aber wenn du die Compilerwarnungen lesen würdest, dann wirst du da auch auf CharInSet verwiesen. :angle:

[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ß :)

[sko1]

Es soll aber auch bei Copy/Paste funktionieren, das hast Du wohl überlesen?

Ciao
Stefan