Создание ComboBox с нуля

← →
GuV © (2007-02-14 06:23) [0]

Мне нужно, чтобы в Items для ComboBox был еще массив Variant.
Т.е. каждому элементу из Items соответствовал бы элемент из массива Variant.
Для этого, думаю, надо делать наследника от TStrings, впихивать туда массив Variant и перекрывать методы добавления и т.д.
Вопрос вот в чем, как потом новый Items прикрутить к Combobox? В стандартном, Items создается не от TStrings, а от его наследника, при чем в наследнике есть ссылка на Combobox (как-то цепляется, не нашел как), и управлятся добавление строк путем подачи ссобщений в Combobox.
Вообщем, может есть у кого ссылка на создание ComboBox (ListBox) с нуля?

← →
DimaBr (2007-02-14 10:28) [1]

Ссылок в инете полно, непонятно, для чего козе баян если у TStrings есть такое свойство
TStrings = class(TPersistent) ... property Objects[Index: Integer]: TObject read GetObject write PutObject; .... end;

> Создание ComboBox с нуля

VCL там это сделано :)

Создание ComboBox с нуля Найти похожие ветки