Delphi-PRAXiS - Einzelnen Beitrag anzeigen - Delphi maskedit oder edit, wo nur 1 und 0 zugelassen sind

**Matthias_H**

Hi,

ist eigentlich simpel. Verwende das Ereignis OnKeyPress mit folgendem Code:

Delphi-Quellcode:

			procedure TForm1.Edit1KeyPress(Sender: TObject;

  var Key: Char);

begin

    if not (key in [#8,'0'..'1']) then key:=#0;

end;

"#8" wird benötigt, damit die Rückwärtstaste funktioniert.

Grüße

Matthias_H Registriert seit: 14. Okt 2003 Ort: Bad Münstereifel 2 Beiträge	#2 Re: maskedit oder edit, wo nur 1 und 0 zugelassen sind 14. Okt 2003, 23:59 Hi, ist eigentlich simpel. Verwende das Ereignis OnKeyPress mit folgendem Code: markieren Delphi-Quellcode: procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); begin if not (key in [#8,'0'..'1']) then key:=#0; end; "#8" wird benötigt, damit die Rückwärtstaste funktioniert. Grüße Matthias
	Zitat