Delphi-PRAXiS - Einzelnen Beitrag anzeigen

**Matze**

Also einfach so:

Delphi-Quellcode:

			procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);

begin

  if key in [#48..#57] then key := #0;

end;

Damit du nicht erst rumprobieren musst.

Matze (Co-Admin) Registriert seit: 7. Jul 2003 Ort: Schwabenländle 14.929 Beiträge Turbo Delphi für Win32	#3 Re: Nur Buchstaben im Edit 2. Nov 2003, 21:31 Also einfach so: markieren Delphi-Quellcode: procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); begin if key in [#48..#57] then key := #0; end; Damit du nicht erst rumprobieren musst.
	Zitat