[Евгений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 их количество.

[icWasya]

только не забывать, что при удалении в таком цикле

Код:

for i:=0 to Panel1.ComponentCount-1 do 
  Panel1.Components[i].Free;

количество компонент будет убывать на каждой итерации, а условие окончания цикла вычисляется один раз, и в какой-то момент получите ошибку.

Поэтому надо делать так

Код:

for i:=Panel1.ComponentCount-1 downto 0 do 
  Panel1.Components[i].Free;

[icWasya]

А если сразу удалить панель, то автоматически удалятся все компоненты, которые на ней лежат.

[poli-smen]

Сообщение от icWasya

А если сразу удалить панель, то автоматически удалятся все компоненты, которые на ней лежат.

Об этом я уже написал в первом сообщении. Но ТС-у нужно было удалить всё с панели, но не саму панель.

[Евгений79]

Да да да, про массив тоже уже подумал. И менять только его длину туды сюды SetLength. Завтра проверю.

Спасибо товарищ poli-smen, всегда мне разжуете понятно!

[Alegun]

Есть подозрение, что вот так будет проще

Код:

var
i: integer;
begin

// /Создать
for i := 1 to 3 do
with TButton.Create(Panel1) do
begin
Parent:= Panel1;
Name:= 'but'+ IntToStr(i);
end;

...

// Удалить
for i := 1 to 3 do
(FindComponent( 'but'+ IntToStr(i))as TButton).Free;
end;

в таком раскладе не нужны промежуточные баттонные переменные

[Евгений79]

Удаление кнопок не срабатывает в таком раскладе.
Но если сделать так

Код:

 for i:=Panel1.ComponentCount-1 downto 0 do
  if pos('but', Panel1.Components[i].name) > 0 then
   Panel1.Components[i].free;

то удаляются нормально.
И да, такой расклад получается вообще идеальным. Спасибо Alegun!


с глобальным массивом кнопок тоже работает

Код:

var
 b: array of tbutton;

procedure TForm1.CreateButtons;
var
 i: integer;
begin
 setlength(b,3);
 for i := 0 to 2 do
 begin
  b[i]:= TButton.Create(panel1);
  b[i].Parent:= panel1;
  b[i].Name:= 'but'+ IntToStr(i);
 end;
end;

procedure TForm1.RemoveButtons;
var
 i,c: integer;
begin
 c:= length(b);
 for i:=0 to c-1 do
  FreeAndNil(b[i]);
 SetLength(b,0);
end;

но с массивом более громоздко выходит.

[Alegun]

Точно, забыл что кнопки динамические

Но всё же можно ещё и так свободить

Код:

 for i := 1 to 3 do
  with Panel1.FindChildControl('but'+inttostr(i)) as TButton do Free;

для краткости