Ableitung von TWinControl um SendMessage zu nutzen

[Cyberaxx]

Hallo,

bin gerade dabei eine Klasse zu erstellen die von TWinControl abgeleitet ist.
Es soll eine Erweiterung eines Stringgrids sein aber keine Ableitung dessen sondern nur auf ihm aufbauen.

Delphi-Quellcode:

type
  TGridManager = class(TWinControl)
  private
  public
    constructor Create(AGrid: TAdvStringGrid)
end;

Dau gibt es eine Klasse die sich um den Header dest Stringgrids kümmert.

Delphi-Quellcode:

  TColHeader = class(TObject)
  private
    FGridHandle: Cardinal;
    FList: TList;
    FGrid: TAdvStringGrid;
    procedure ClearList();
  public
    constructor Create(Grid: TAdvStringGrid; Handle: Cardinal);
    destructor Destroy(); override;
    procedure Add(Name: string; ACol, ARow: Integer); overload;
    procedure Add(Name: string; ACol, ARow, SpanCol, SpanRow: Integer); overload;
  end;

Anfangs war der GridManager nur abgeleitet vom TObject. Da musste ich aber feststellen das innerhalb diesen Blocks

Delphi-Quellcode:

procedure TColHeader.Add(Name: string; ACol, ARow, SpanCol, SpanRow: Integer);
  var
    ColObj: TColObj;
begin
  ColObj := TColObj.Create;
  ColObj.Name := Name;
  ColObj.Col := ACol;
  ColObj.Row := ARow;
  ColObj.ColSpan := SpanCol;
  ColObj.RowSpan := SpanRow;

  FList.Add(ColObj);

  FGrid.MergeCells(ACol, ARow, SpanCol, SpanRow);
  FGrid.Cells[ACol, ARow] := Name;
end;

es nicht funktioniert den ColCount zu setzen, wenn die Anzahl der Cols größer ist als die voreingestellten.

Nun habe ich es abgeleitet vom TWinControl und wollte es dementsprechend mit SendMessage ausstatten aber ich erhalte da im Create des ColHeaders die Fehlermeldung:

Zitat:

---------------------------
Benachrichtigung über Debugger-Exception
---------------------------
Im Projekt Project1.exe ist eine Exception der Klasse EInvalidOperation mit der Meldung 'Element '' hat kein übergeordnetes Fenster' aufgetreten.
---------------------------
Anhalten Fortsetzen Hilfe
---------------------------

Was mache ich hier falsch? Bzw. wie bekomme ich meine Klasse dazu Messages zu emfangen?

Hoffe hier kann mich jemand helfen.

Gruß
Cyber