Bestimmte Zeichen in Edit verbieten?

DiamondDog · Beiträge: 460

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:

markieren

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 · Verfasst: Di 23.11.10 13:04

markieren

Delphi-Quelltext

1:
2:
3:
4:

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

_________________
Das Problem liegt üblicherweise zwischen den Ohren H₂♂
DRY DRY KISS

Xion · Verfasst: 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

_________________
a broken heart is like a broken window - it'll never heal
In einem gut regierten Land ist Armut eine Schande, in einem schlecht regierten Reichtum. (Konfuzius)

DiamondDog · Beiträge: 460

Xion hat folgendes geschrieben :

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!

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme