Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2004.10.10;
Скачать: [xml.tar.bz2];

Вниз

ComponentCount (Components[i])... Как формируется?   Найти похожие ветки 

 
Cosinus ©   (2004-09-22 18:22) [0]

Т.е. очень интересно от чего зависит в каком порядке они перебираются?


 
basken   (2004-09-22 18:48) [1]

От того в каком порядке они туда попадают.


 
Cosinus ©   (2004-09-22 18:57) [2]

Куда попадают?
Как список индексов формируется формируется?


 
basken   (2004-09-22 19:15) [3]

При создании обькта (наследника TComponent) создаваемый объект добавляется в контейнер Ownera.

constructor TComponent.Create(AOwner: TComponent);
begin
 FComponentStyle := [csInheritable];
 if AOwner <> nil then AOwner.InsertComponent(Self);
end;  


И таким образом контейнер наполняется...


 
DiamondShark ©   (2004-09-22 19:38) [4]

На то нам дадены исходники VCL

procedure TComponent.Insert(AComponent: TComponent);
begin
 if FComponents = nil then FComponents := TList.Create;
 FComponents.Add(AComponent);
 AComponent.FOwner := Self;
end;

function TComponent.GetComponentCount: Integer;
begin
 if FComponents <> nil then
   Result := FComponents.Count else
   Result := 0;
end;


 
Cosinus ©   (2004-09-23 11:47) [5]

Ок, спасибо.
Сам что то не додумался вчера посмотреть.



Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2004.10.10;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.45 MB
Время: 0.042 c
4-1094721402
_aLF
2004-09-09 13:16
2004.10.10
Drag n Drop


3-1094792388
skr
2004-09-10 08:59
2004.10.10
InstallShield, BDE


3-1094728910
Heretic
2004-09-09 15:21
2004.10.10
По поводу процедуры "BeforePost" в Ttable


14-1096016865
Prohodil Mimo
2004-09-24 13:07
2004.10.10
Забыл как задать колонке имя.


14-1095768414
X9
2004-09-21 16:06
2004.10.10
Проблемы с TGroupBox





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский