Zitat von
renekr:
Hi,
Danke das wäre ne Idee,aber sowas wie memo1.text -1 gibt es nciht ,oder?
doch fast:
Delphi-Quellcode:
procedure TForm1.Memo1KeyPress(Sender: TObject; var Key: Char);
begin
if (Key = '-')
and (Memo1.Text[Memo1.SelStart] = '-') then beep;
end;
Hier nur "Memo1.SelStart" (ohne -1), weil der Char ja zu diesem Zeitpunkt noch nicht "dazuaddiert" wurde.