Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

динамическое создание фреймов. [D7, XP]


Golikov ©   (2008-01-04 20:34:00) 

ситуация такая:
необходимо динамически создавать фреймы. делаю так:
кидаю на форму Фреймбар.затем :

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] ?????


MsGuns   (2008-01-06 00:52:00) [1]

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

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

1.
2.
3.


golikov   (2008-01-05 17:58:00) [2]

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


MsGuns   (2008-01-05 14:40:00) [3]

1. TObjectList/TList

2. TCollection

3. Array of Pointer

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


golikov   (2008-01-05 13:48:00) [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),так вот их надо связать с созданными фреймами. понятно ?


{RASkov}   (2008-01-05 10:27:00) [5]

> [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;

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

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

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


turbouser   (2008-01-05 03:37:00) [6]


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

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


Golikov   (2008-01-05 02:49:00) [7]

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


Наверх

Титульная страница Поиск, карта сайта Написать письмо