Parent

← →
Dysan © (2004-03-25 16:56) [0]

Как узнать сколько у TChart, Parent-ом присвоенно обьектов типа TButton ? и убить их всех!

← →
Переяслов Григорий © (2004-03-25 17:04) [1]

MyChart.ComponentCount, MyChart.Components[I] ?

← →
Dysan © (2004-03-25 17:08) [2]

thank"s!
а как узнать что он TButton а не TЧего-то-там?

← →
Oyster © (2004-03-25 17:11) [3]

is TButton :-)

← →
Dysan © (2004-03-25 17:23) [4]

что то не получаеться
у меня динамически создаються кнопки на Chart-e
button.Parent:=Chart1;
и как то надо их потом удалить.

← →
TUser © (2004-03-25 17:31) [5]

if [2] is TButton then
Free;

← →
Ega23 © (2004-03-25 17:32) [6]

только не через for цикл орканизовывать надо, а через while

← →
Dysan © (2004-03-25 17:33) [7]

втом то и дело что MyChart.ComponentCount покаpsdftn что равен 0!!!
а кнопки есть! :(

← →
TUser © (2004-03-25 17:38) [8]

2 [6] - да, точно, не подумал.
2 [7] - код покажи, как создаешь кнопки.

← →
Ega23 © (2004-03-25 17:40) [9]

ComponentCount - это свойство формы. Также как и Components[i]
Короче:

i:=0;
While (i<ComponentCount) do
begin
if (Components[i] is TButton)) then
begin
if (Components[i] as TButton).Parent=Chart1.Handle then
(Components[i] as TButton).Free
else i:=i+1;
end
else i:=i+1;
end;

← →
Dysan © (2004-03-25 17:42) [10]

tmp_pred.button_:=TSpeedButton.Create(nil);
tmp_pred.button_.Parent:=Chart1;

for i:=0 to Chart1.ComponentCount-1 do if Chart1.Components[i] is TSpeedButton then Chart1.Components[i].Free;

← →
Dysan © (2004-03-25 17:46) [11]

if (Components[i] as TSpeedButton).Parent=Chart1.Handle then

не совместимые типы!!!

← →
Тимохов © (2004-03-25 17:48) [12]

Зачем handle?

← →
Dysan © (2004-03-25 17:49) [13]

да я уже понял что просто Chart1

← →
Ega23 © (2004-03-25 17:50) [14]

Ну ошибочка закралась, я ж не в Делфях писал. Не помню точно кто там парент - Handle или WinControl какой-нибудь...
Бывает.

← →
Dysan © (2004-03-25 17:54) [15]

увы ... :(
создавай кнопки не создавай
Chart1.ComponentCount показывает одно и тоже количество! :(

← →
Игорь Шевченко © (2004-03-25 17:58) [16]

ControlCount

← →
Ega23 © (2004-03-25 17:59) [17]

1. button:=TButton.Create(Form1)

2. Form1.ComponentCount и Form1.Components[i]

← →
Dysan © (2004-03-25 18:02) [18]

TButton.Create(Form1)
оооо! это я как то упустил

← →
Ega23 © (2004-03-25 18:06) [19]

Как говорит мой шеф - это только первые 10 лет тяжело...

← →
Юрий Зотов © (2004-03-25 18:18) [20]

Мдя... А на самый правильный ответ [16] никто даже и внимания не обратил. Грустно...

← →
Ega23 © (2004-03-25 18:20) [21]

Действительно...
Спишем на конец рабочего дня :о)

а чем правильней ControlCount чем ComponentCount?

> Dysan © (25.03.04 18:27) [23]

почитайте хелп. очень доходчиво обхяснено.
В кратце: разницу owner и parent понимаете?
components это список всех компонентов, которыми владеет данный компонет (т.е. он у них owner).
controls это список контролов у кого данный контрол родитель (т.е. он у них parent).

В ControlCount и Controls содержаться только визуальные компоненты, а в ComponentCount и Components - все, включая всякие OpenDialog, ActionList и т.п.

← →
bigsnake (2004-03-25 18:32) [26]

Как бы контролы они видны юзеру, а компоненты как бы не обязательно

это нельзя считать исчерпывающим объяснением
Согласен.

"Истина где-то рядом" (С)
In vino veritas

← →
bigsnake (2004-03-25 18:50) [29]

Первая строка помощи по TControl:

TControl is the base class for all components that are visible at runtime.

Parent Найти похожие ветки