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

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

Нужна помощь, Вставка компонента [D6, Win2k]

User52 ©   (2005-11-15 13:22:00) 

Как определить, нет ли уже в форме компонента, которую я хочу добавить в форму методом CREATE?

---

Ega23   (2005-11-15 13:51:00) [1]

> а уж вот тем более ЭТО - шаманство доселе совсем неведомое
> )


Угу. TComponent - лишнее.

---

Digitman   (2005-11-15 13:47:00) [2]

> Ega23 ©   (15.11.05 13:43) [2]


шаман ты , однако) ... с учетом того что в вопросе нет ни слова про TComponent.Name


> TComponent(Components[i])


а уж вот тем более ЭТО - шаманство доселе совсем неведомое )

---

Ega23   (2005-11-15 13:43:00) [3]

> Как определить, нет ли уже в форме компонента, которую я
> хочу добавить в форму методом CREATE?


Допустим, перебрать в цикле все компоненты и проверить у них, например имя:


function ComponentExists(aOwner:TComponent; aName:String):Boolean;
var
i:Integer;
begin
Result:=False;
With aOwner do
  begin
    for i:=0 to ComponentCount-1 do
     begin
     Result:=UpperCase(TComponent(Components[i]).Name)=UpperCase(aName);
     if Result then Break;
    end;
end;


---

Digitman   (2005-11-15 13:31:00) [4]

> Как определить, нет ли уже в форме компонента


пока не определишь критерий, по которому следует определять что-то там на предмет "нет ли уже" - никак.

---

Наверх