VPF::Список компонентов на форме - Форум программистов

Garmahis

Дата 17.1.2008, 14:04 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 254
Регистрация: 23.12.2004

Репутация: нет
Всего: 4

На форме лежит панель, на которой рантайм создаются компоненты. Полученная форма может быть довольно сложной и сожердать различные пейджконтролы груп боксы и тд. Как получить список всех компонентов? Если я создаю форму в редакторе то потом обратившись к MainForm.Components я могу получить список всех компопнентов всё равно в каких груп боксах они лежат. А вот в рантайме этого почему-то не происходит. Помогите пожалуйста!

ama_kid

Дата 17.1.2008, 14:22 (ссылка)

(нет голосов)

Загрузка ...

АСУТП-кодер

Профиль
Группа: Комодератор
Сообщений: 1460
Регистрация: 5.3.2007
Где: Москва

Репутация: 15
Всего: 95

есть подозрение, что ты Owner'a некорректно указываешь при создании компонентов...

--------------------

самурай без меча подобен самураю с мечом, но только без меча

Garmahis

Дата 17.1.2008, 14:37 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 254
Регистрация: 23.12.2004

Репутация: нет
Всего: 4

Ага я понял в чём проблема. Проблема в том что не видет закладок в пайджконтроле.
Овнера я указываю так:

Код


var
  FirstControl:TComponent; 
  Page: TElPageControl;
 begin
           FirstControl:= FindAppComponent(FieldByName('OwnerID').AsInteger);
            Page:= TElPageControl.Create(FirstControl);
            Page.Parent:= (FirstControl) as TWinControl;
            Page.Name:= FieldByName('Name').AsString;
            Page.Cursor:=crHandPoint;
            Page.Tag:= FieldByName('ID').AsInteger;
end;

function TpdTestApplication.FindAppComponent(ID: integer): TComponent;
var
i:integer;
begin
Result:=nil;
for i := 0 to ComponentCount - 1 do
  if Components[i].Tag = ID then
  begin
    Result:= Components[i];
    Break;
  end;
end;

Это пример создания пейдж контрола. Вобщем при создании пейджконтрола или групбокса всё ок. ComponentCount увеличивается и всё работает. а когда я добавляю к пейд контролу страничку то каунт не увеличивается и если я на страничку кладу панель то он тоже не увеличивается. А счётчик компонентов у пейджконтрола растёт. Вобщем как бы попроще пробежаться по всем компонентам лежащим на панели не смотря на то кто чей перент?

Это сообщение отредактировал(а) Garmahis - 17.1.2008, 14:44

Garmahis

Дата 17.1.2008, 14:53 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 254
Регистрация: 23.12.2004

Репутация: нет
Всего: 4

Ура придумал smile

Изменил функцию поиска компонентов теперь она выглядит вот так:

Код


function TpdTestApplication.FindAppComponent(ID: integer; MainBox:TComponent): TComponent;
var
i:integer;
begin
Result:=nil;
for i := 0 to MainBox.ComponentCount - 1 do
  if MainBox.Components[i].Tag = ID then
  begin
    Result:= MainBox.Components[i];
    Break;
  end
  else
  if MainBox.Components[i].ComponentCount>0 then
  begin
    Result:= FindAppComponent(ID,MainBox.Components[i]);
    if Result<>nil then
    Break;
  end;
end;

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »