Zitat von
Martin K:
Hmm...
Wie wärs damit?
Im Ereignis OnKeyPress von Deinem TEdit:
Delphi-Quellcode:
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if not (Key in ['0'..'9', '.', ',']) then
Key := #0;
end;
Das bau ich erstmal ein
Wie muss ich im OnChange überprüfen`?
Einfach mit try StrToFloat(Edit1.Text)[...] ?
Zitat von
oki:
Jo,
Jedi : TJVFloatEdit
gruß oki
Naja bei den
Jedi Sachen ist mir ehrlich gesagt viel zu viel Müll bei, den ich nie im Leben brauche...