EditMask in Tedit

[dor557]

Wie kann ich in einem TEdit Feld eine EditMask benutzen ???

In DBEdit ist das ja einfach aber wie in TEdit ??

Habe die Hilfe durchsucht aber ich finde da keine Beschreibung wie das gehen soll...

Gruss Sascha

[Apollonius]

In meinem D2005 gibts in der Palettenseite zusätzlich die Komponente TMaskEdit, da kann man das einfach einstellen.
Wenn es die Kompo bei dir nicht gibt, dann musst du das OnKeyPress-event des Edits verwenden.

Delphi-Quellcode:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
const erlaubteZeichen:set of char=['0'..'9'];  //<--Die Zeichen, die du erlauben willst
begin
if not (key in erlaubteZeichen) then
 key:=#0;   //<--key wird ungültig gemacht

end;

[dor557]

Danke.

Dann werde ich Jetzt in meiner DFM datei die TEdit Felder suchen und durch TMaskEdit ersetzen :)

Danke Geht.... Dachte nur das es da noch eine andere Möglichkeit gibt...

bzw. Habe nach der EditMask Komponente gesucht....

Gruss Sascha