Delphi-PRAXiS - Einzelnen Beitrag anzeigen

**Matze**

Delphi-Quellcode:

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

begin

  if Pos(',', Edit1.Text) > 0 then

    if key = ',' then key := #0;

end;

Matze (Co-Admin) Registriert seit: 7. Jul 2003 Ort: Schwabenländle 14.929 Beiträge Turbo Delphi für Win32	#2 Re: Mehrfach Eingabe verhindern 11. Okt 2004, 13:55 markieren Delphi-Quellcode: procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); begin if Pos(',', Edit1.Text) > 0 then if key = ',' then key := #0; end;
	Zitat