[Евгений79]

Задана глобальная переменная

Код:

var
 bt: TButton;

затем в какойто процедуре создаем несколько кнопок

Код:

   bt:= TButton.Create(Panel1);
   bt.Parent:= Panel1;
   bt.Name:= 'but1';

   bt:= TButton.Create(Panel1);
   bt.Parent:= Panel1;
   bt.Name:= 'but2';

   bt:= TButton.Create(Panel1);
   bt.Parent:= Panel1;
   bt.Name:= 'but3';

в другой процедуре нужно узнать если кнопкИ созданы то уничтожить их все

Код:

  if Assigned(bt) then FreeAndNil(bt);

Удаляет только последнюю кнопку 'but3'

Как удалить but1, but2 ?
Может мой подход в корне неверный и проще объявить сразу три переменные для кнопок?
Но может возникнуть ситуация с созданием сотни динамических компонент, все их описывать поименно?

[poli-smen]

Сообщение от Евгений79

Удаляет только последнюю кнопку 'but3'

Ну так это естественно. Раз 3 кнопки, значит должно быть и 3 переменных:

Код:

var
 bt1, bt2, bt3: TButton;
...
bt1:= TButton.Create(Panel1);
bt1.Parent:= Panel1;
bt1.Name:= 'but1';
 
bt2:= TButton.Create(Panel1);
bt2.Parent:= Panel1;
bt2.Name:= 'but2';
 
bt3:= TButton.Create(Panel1);
bt3.Parent:= Panel1;
bt3.Name:= 'but3';
...
FreeAndNil(bt1);
FreeAndNil(bt2);
FreeAndNil(bt3);

UPD.

Сообщение от Евгений79

Но может возникнуть ситуация с созданием сотни динамических компонент, все их описывать поименно?

Всё зависит от задачи. Можно например использовать динамические массивы, для хранения ссылок на все созданные кнопки, а можно просто грохнуть Panel1, а он автоматически удалит всё что на нём расположено.

[Евгений79]

Так смущает то, что вариант с одной переменной тоже работает. Кнопки создаются, можно задать разные Caption положение цвет, и т.д. Присвоить обработчики событий.
Например в обработчике клика проверяю кто кликнул и соотвественно действия разные

Код:

if (Sender as TButton).name = 'but1' then blabla1;
if (Sender as TButton).name = 'but2' then toptop2;

[poli-smen]

Сообщение от Евгений79

Так смущает то, что вариант с одной переменной тоже работает. Кнопки создаются, можно задать разные Caption положение цвет, и т.д. Присвоить обработчики событий.

Ну так создавать кнопки можно и вообще без переменных, переменные нужны только для хранения ссылки (указателя) на созданный объект, а ты при записывании нового значения в переменную bt теряешь таким образом ссылку на кнопку которая в этой переменной до этого хранилась.

Сообщение от Евгений79

Например в обработчике клика проверяю кто кликнул и соотвественно действия разные

Код:

if (Sender as TButton).name = 'but1' then blabla1;
if (Sender as TButton).name = 'but2' then toptop2;

Здесь вообще другой механизм используется, без использования переменных - кнопка в событии сама сообщает указатель на саму себя - Self, который в обработчике события виден как параметр Sender.

[Евгений79]

Понятно.
Если зайти с другого конца. Т.к. владелец кнопок Panel1 можно как-то найти и уничтожить все его объекты?

[poli-smen]

Сообщение от Евгений79

Понятно.
Если зайти с другого конца. Т.к. владелец кнопок Panel1 можно как-то найти и уничтожить все его объекты?

Можно. С помощью свойства Components можно получить все объекты (компоненты) которыми владеет (Owned) объект (в данном случае Panel1), в свойстве ComponentCount количество этих объектов. А с помощью свойства Controls можно получить все элементы управления которые лежат на нём (Childs) и в свойстве ControlCount их количество.