Дочерний класс от TListItem

[veniside]

> надо будет новый компонент регистрировать на базе Tlistview ?

и это не поможет, проще будет заново написать свой список с нуля.

[phomm]

таки тогда можно слегка пооффтопить ? можно ли всё-таки малой кровью добавить что-то в VCL-компонент ? я правда подобным никогда не озадачивался, мне интересен принцип. Я пробовал , написал tmylistview= class(tlistview) добавил 1 поле и в рантайме создаю компонент обычным способом (owner, parent - форма), он появляется и работает с добавленным полем. Правда поле простого типа, а не сложное, как Tlistitems. Пробовал и наследовать tlistitems, но уже не получилось добиться работы...

есть какие-то мысли по этому поводу здесь и сейчас? или мне лучше погуглить толковые статьи по усовершенствованию стандартных компонент ? думаю, и ТС это будет полезно и другим людям пытающихся создавать дочерние классы стандартных компонент (это слово в развитие темы )

[veniside]

> добавить что-то в VCL-компонент ?

визуальные компоненты особо ничем в этом плане не отличаются от остальных классов. Да, можно унаследовать свой класс от любой компоненты и навешать сколько угодно новых свойст на него, но эти свойства будут известны только вам, и на работу базового класса никак не повлияют.

> Правда поле простого типа, а не сложное, как Tlistitems.

проблема тут не в том, что поле "сложное", а в том, что элементы TListItems создаются самим TListView, и всё зависит от того, какой базовый класс этих элементов прописан в исходниках TListView.

Кстати, заглянув в исходники, обнаружил, что начиная с 6-той Дельфи, в TListView добавили вот такое событие:

  TLVCreateItemClassEvent = procedure(Sender: TCustomListView; var ItemClass: TListItemClass) of object;

И такие методы:

    function CreateListItem: TListItem; virtual;
    function CreateListItems: TListItems; virtual;

Т.е. перекрыв событие, теперь можно указать TListView, какого класса (наследника от TListItem) должны быть создаваемые элементы списка.

А перекрыв методы, можно управлять и тем, какого класса (наследника от TListItems) будет внутренний список элементов у TListView.

(Забавно, ещё во времена 6-той Дельфи борландовцы озаботились этими проблемами, кто б мог подумать )).

А теперь вернёмся в 5-ю Дельфи, где такого события и таких методов нет. И мы никак не можем повлиять на то, какой класс будет у создаваемых элементов списка, и у самого внутреннего списка.

> Пробовал и наследовать TListItems

опять же, наследовать можно сколько угодно, но пока в TListView прописано такое (строка из исходников к Дельфи 4):

  FListItems := TListItems.Create(Self);

Всё ваше наследование проходит мимо TListView, который продолжает спокойно работать с TListItems.

> и другим людям пытающихся создавать дочерние классы стандартных компонент

достаточно всего двух вещей:

— понимания, как работает ООП;
— исходников компонент

[eduard93]

Вообще добавить в список наследника вполне возможно. Items.AddItem - и добавляйте на здоровье. Плюс у каждого итема есть поле Data. Туда можно поместить указатель на что угодно, к примеру на рекорд с произвольными полями.

[xexxex]

type
  TListItem = class(ComCtrls.TListItem)
  private
    FID: Cardinal;
    FStr: String;
  end;

  TListView = class(ComCtrls.TListView)
    function CreateListItem: ComCtrls.TListItem; override;
  end;

  TForm1 = class(TForm)
    ListView1: TListView;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}


{ TListView }

function TListView.CreateListItem: ComCtrls.TListItem;
begin
  Result := TListItem.Create(Items);
end;