Delphi-Quellcode:
if (key = '-') then
begin
key := #0;
if pos('-', Edit1.Text) < 1 then Edit1.Text := '-' + Edit1.Text else Edit1.Text := copy(Edit1.Text, 2, length(Edit1.Text)-1);
end;
Den Code noch mit in die Keypressmethode reinstopfen. Allerdings musst du dann noch den Cursor wieder an die richtige Stelle setzen
@chris: So weit ganz gut, du musst hast aber vergessen das minuszeichen wieder zu entfernen bei erneutem press