Eingaben in Stringgrid begrenzen

[Hansa]

Stimmt an die Ereignisse habe ich gar nicht gedacht. 8) Du meinst so ungefähr ?

Delphi-Quellcode:

procedure TfrmNrEin.sgNrSetEditText(Sender: TObject; ACol,
  ARow: Integer; const Value: String);
begin
  with Sender as TStringGrid do begin
    if (length (value) * Font.Size) >= ColWidths [ACol] then begin
      Cells [ACol,ARow] := copy (value,1,length (value)-1);
    end;
  end;
end;

Damit kriege ich jetzt nur noch so viele Zeichen in eine Zelle, wie auch reinpassen, also so wie gewollt. Der Haken ist aber, daß durch das direkte Zuweisen des neuen Wertes an Cells diese Zelle anscheinend neu gezeichnet wird und auch als selected markiert wird (also blau hinterlegt ist). Und das bedeutet, daß die vorherige Eingabe bei einem weiteren Zeichn zuviel gelöscht wird. Das kann ich so keinem DAU zumuten.