StringGrid Komponente erweitern

[berens]

Delphi-Quellcode:

type
  TMyStringGrind = class(TStringGrid)
  private 
    FRowCount: integer;
    SetRowCount(Value: integer);
  public
    property RowCount: integer read FRowCount write SetRowCount;
  end;
  

...

procedure TMyStringGrind.SetRowCount(Value: integer);
begin
  FRowCount := Value;
  inherited RowCount := Value; // den Wert tatsächlich ändern
  // weitere Befehle hier
end;