динамическое создание фреймов.

← →
Golikov (2008-01-04 20:34) [0]

ситуация такая:
необходимо динамически создавать фреймы. делаю так:
кидаю на форму Фреймбар.затем :
for i:=0 to datamodule1.ADOTable1.RecordCount -1 do begin sFrameBar1.Items.Insert(i); sFrameBar1.Items[i].Caption:=datamodule1.ADOTable1.fieldbyname("Pole1").AsString ; datamodule1.ADOTable1.Next ; end;
фреймы я создаю также динамически, но как их "прикрутить" к items[i] ?????

← →
Golikov (2008-01-05 02:49) [1]

неужели ни кто не знает ?

← →
turbouser © (2008-01-05 03:37) [2]

> Golikov (05.01.08 02:49) [1]
>
> неужели ни кто не знает ?

Что значит "прикрутить" ? И что такое sFrameBar1 ?

← →
{RASkov} © (2008-01-05 10:27) [3]

> [0] Golikov (04.01.08 20:34)
> необходимо динамически создавать фреймы. делаю так:

> for i:=0 to datamodule1.ADOTable1.RecordCount -1 do begin
> sFrameBar1.Items.Insert(i);
> sFrameBar1.Items[i].Caption:=datamodule1.ADOTable1.fieldbyname("Pole1").AsString ;
> datamodule1.ADOTable1.Next ;
> end;

И какой строкой здесь, стесняюсь спросить, создаются фрэймы? :)

> фреймы я создаю также динамически,

Так же это как??? :(

← →
golikov (2008-01-05 13:48) [4]

var frame:array of TFrame; i:integer; begin for i:=0 to 25 do begin frame[i]:=tframe.Create(sframebar1); frame[i].parent:=sframebar1; frame[i].Width :=20; frame[i].Height :=250; end;
sFramebar это компанент Alphacontrols;
в нем создаются так назывыаемые заголовки фреймов(items),так вот их надо связать с созданными фреймами. понятно ?

← →
MsGuns © (2008-01-05 14:40) [5]

1. TObjectList/TList

2. TCollection

3. Array of Pointer

4. В классе фрэйма прикрутить поле int, куда записывать при создании индекс фрэйма (ту самую "i").
Для поиска нужного фрэма перебирать все, проверяя это поле на соответствия искомому i
(ИМХО - самый корявый способ)

← →
golikov (2008-01-05 17:58) [6]

(ИМХО - самый корявый способ)
ну подскажите не корявый.

>golikov (05.01.08 17:58) [6]
>ну подскажите не корявый.

В порядке приоритета (см. [5]):

1.
2.
3.

динамическое создание фреймов. Найти похожие ветки