Текущий архив: 2005.12.04;
Скачать: CL | DM;

Вниз

Нужна помощь, Вставка компонента   Найти похожие ветки 

← →
User52   (2005-11-15 13:22) [0]

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

---

← →
Digitman ©   (2005-11-15 13:31) [1]

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


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

---

← →
Ega23 ©   (2005-11-15 13:43) [2]

> Как определить, нет ли уже в форме компонента, которую я
> хочу добавить в форму методом 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:47) [3]

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


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


> TComponent(Components[i])


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

---

← →
Ega23 ©   (2005-11-15 13:51) [4]

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


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

---

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

Текущий архив: 2005.12.04;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.047 c