Delphi edit soll nur zahle annehmen

Thema durchsuchen

Ansicht

Themen-Optionen

edit soll nur zahle annehmen

Ein Thema von magic87 · begonnen am 24. Aug 2006 · letzter Beitrag vom 25. Aug 2006

Vorheriger Beitrag

Nächster Beitrag

A-M-X

Registriert seit: 29. Sep 2005
Ort: Karlsruhe
152 Beiträge

#12

Re: edit soll nur zahle annehmen

24. Aug 2006, 23:04

Ich muss zwar zustimmen, dass man mehr suchen könnte, aber helfe trotzdem:

markieren

Delphi-Quellcode:

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

begin

if not (key in ['0'..'9']) then Key:= #0;

end;

Du kannst auch noch "Decimalseperator" für einen "." (Punkt), "Thousandseperator" für ein "," (Komma) und "VK_Back" für das Erlauben zum Drücken der Backspacetaste einbauen.

if not (key in ['0'..'9', DecimalSeparator, ThousandSeparator, Char(VK_BACK)]) then key:= #0;
Wie das mit deinem Code funtzen soll, kA sry ^^