Momentan verwende ich diesen Code:
Delphi-Quellcode:
if (key = '-') and (Length(Edit1.Text) > 0) then begin
key := #0; end;
das funktioniert aber nur wenn der feld Edit nicht markiert ist
wenn im Feld Edit1 bereits eine Zahl ist und markiere (selektiere) ich diese
und dann die taste "-" drücke, dann funktioniert nicht. Das ist das Problem