Eingaben in Stringgrid begrenzen

[Lannes]

Hallo,

das kannst Du einem DAU zumuten

Delphi-Quellcode:

procedure TForm1.StringGrid1SetEditText(Sender: TObject; ACol,
  ARow: Integer; const Value: String);
begin
  with Sender as TStringGrid do 
    begin
    if Canvas.TextWidth(Value) >= ColWidths[ACol]-5 then 
      begin
      Cells[ACol,ARow] := copy(Value,1,Length(Value)-1);
      EditorMode := True;
      end;
    end;
end;