Hallo Hansa,
darf ich dir das hier zumuten?
Delphi-Quellcode:
type
THackedStringGrid = class(TStringGrid);
var
// Dimensionieren mit SetLength(ColumnMaxLength, StringGrid.ColCount)
// Initialisieren mit geeigneten Werten
ColumnMaxLength = array of integer;
procedure TDemoForm.StringGridGetEditText(Sender: TObject; ACol,
ARow: Integer; var Value: String);
begin
SendMessage(THackedStringGrid(StringGrid).InplaceEditor.Handle,
EM_SETLIMITTEXT, ColumnMaxLength[ACol], 0);
end;
Grüße vom marabu