Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > Список компонентов на форме

Автор: Garmahis 17.1.2008, 14:04

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

Автор: ama_kid 17.1.2008, 14:22

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

Автор: Garmahis 17.1.2008, 14:37

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

Код


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:53

Ура придумал 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;