Entwickler-Ecke

Sonstiges (Delphi) - Bestimmte Zeichen in Edit verbieten?


DiamondDog - Di 23.11.10 13:02
Titel: Bestimmte Zeichen in Edit verbieten?
Hallo Leute,
ich hab eine kleines Problem und zwar würde ich gerne bei der Eingabe in ein Edit bestimmte Zeichen nicht zulassen.
Ich hab das mal so versucht, aber das scheint nicht wirklich richtig zu sein:

Delphi-Quelltext
1:
2:
3:
4:
5:
procedure TForm1.Edit1(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if (Key in ['\','/',':','*','?','<','>','|']) then Key := #0;
end;

Hoffe das mir dabei jemand weiterhelfen kann.

Danke schon mal an alle.

Mfg Dog


bummi - Di 23.11.10 13:04


Delphi-Quelltext
1:
2:
3:
4:
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if (Key in ['\','/',':','*','?','<','>','|']) then Key := #0;
end;


Xion - Di 23.11.10 13:19

Grundsätzlich ist das ein großes Durcheinander. Manche Tasten kriegst du bei "OnKeyDown" rein. Andere bei "OnKeyPress". Falls also ein Zeichen nicht gefiltert wird, dann solltest du es mal im OnKeyDown probieren ;)


DiamondDog - Di 23.11.10 13:24

user profile iconXion hat folgendes geschrieben Zum zitierten Posting springen:
Grundsätzlich ist das ein großes Durcheinander. Manche Tasten kriegst du bei "OnKeyDown" rein. Andere bei "OnKeyPress". Falls also ein Zeichen nicht gefiltert wird, dann solltest du es mal im OnKeyDown probieren ;)

Super das hat geholfen, Danke!