Hallo,
Ich möchte TListColumn um eine property erweitern, dafür hab ich eine erweiterte Klasse von TListView angelegt, die eine Erweiterte Klasse von TListColumns enthält.
Die Erweiterte TListView-Klasse funktioniert tadellos, wenn ich aber
Delphi-Quelltext
1:
| property Columns: TExtListColumns read FListColumns write SetListColumns |
einbinde erhalte ich in der IDE schon "Stream-Read-Fehler"
Delphi gibt diesen Fehler scheinbar beim Create der Klasse aus.
Kann mir jemand helfen?
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
| TExtListView = class(TListview)
...
published
property Columns: TExtListColumns
read FListColumns write SetListColumns;
end;
TExtListColumns = class(TListColumns)
private
function GetItem(Index: Integer): TExtListColumn;
procedure SetItem(Index: Integer; Value: TExtListColumn);
public
constructor Create(AOwner: TCustomListView); property Items[Index: Integer]: TExtListColumn read GetItem write SetItem; default;
end; |
Danke im vorraus
