VPF::Пребор всех компонент рекурсивно

fess

Дата 27.2.2006, 15:45 (ссылка)

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

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 125
Регистрация: 17.2.2005
Где: г. Мурманск, Росс ия

Репутация: 2
Всего: 3

Как перебрать все компоненты на панели? Причём на самих этих компонентах могу ещё находиться компоненты!
При использовании ComponentCount - говориться, что нет ни одного компонента на панели ( ComponentCount = 0).
При использовании ControlCount - невозможно передать в рекурсивную процедуру процедуру, так как У TControl нету свойства ControlCount ((
Это нужно для процедуры сохранения компонента в поток:

Код


    procedure AddToStream(   SomeComponent:TComponent;ToStream:TMemoryStream);

      Procedure RecurceWrite(SomeComponent:TComponent; ToStream:TMemoryStream);
        var i: integer;
      begin
        for i := 0 to SomeComponent.ComponentCount - 1
        do begin
          ToStream.WriteComponent(SomeComponent.TComponents[i]);
          if SomeComponent.Components[i].ComponentCount>0
            then  RecurceWrite(SomeComponent.Components[i],ToStream);
        end;
      end;

    begin
      ToStream:=TMemoryStream.Create;
      RecurceWrite(SomeComponent,ToStream);
    end;

Но это не работает ((
Так как ComponentCount=0 (((

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

Компьютер не подчиняется законам физики. Только в нём глюки возникают из ничего, файлы исчезают в никуда, а объём измеряется в метрах и называется весом.

Rennigth

Дата 27.2.2006, 16:00 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1708
Регистрация: 21.6.2004
Где: Moscow

Репутация: 49
Всего: 76

к примеру:

Код


procedure RecursiveDisable(AParent: TWincontrol);
var
  i: Integer;
begin
  if Assigned(AParent) and (AParent is TWincontrol) then
    for i := AParent.ControlCount - 1 downto 0 do
    begin
      AParent.Controls[i].Enabled := False;
      if AParent.Controls[i] is TWincontrol then
        RecursiveDisable(TWincontrol(AParent.Controls[i]));
    end;
end;

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

(* Honesta mors turpi vita potior *)

Romikgy

Дата 27.2.2006, 16:01 (ссылка)

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

Загрузка ...

Любитель-программер

Профиль
Группа: Участник Клуба
Сообщений: 7326
Регистрация: 11.5.2005
Где: Porto Franco Odes sa

Репутация: 26
Всего: 146

GetWindow c GW_CHILD не поможет?

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

Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности.

fess

Дата 28.2.2006, 11:24 (ссылка)

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

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 125
Регистрация: 17.2.2005
Где: г. Мурманск, Росс ия

Репутация: 2
Всего: 3

Rennigth
Спасибо за помощь! Сработало!

Romikgy
Я не понял, но это уже и не важно )

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

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