Eingaben in Stringgrid begrenzen

[marabu]

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