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