как создать процедуру для кнопки которая еще не создана?

[DeepPurple]

если конкретнее: одна кнопка создает кнопки которые добавляются в динамический массив.
необходимо чтобы по нажатию каждой кнопки она удаляла сама себя, и, допустим, чекбокс с таким же св-вом Tag.
предполагаю что через Button.OnClick но как никак разобраться не могу=\

[Neeter]

а вы создайте в секции private процедуру обрабатывающую onClick у каждой кнопки в массиве:

 ...
private
  procedure ButtonsClick(Sender: TObject);
 ...
procedure Form1.ButtonsClick(Sender: TObject);
begin
 //код
end;

И в коде, где вы создаете кнопки, каждой кнопке присваиваете это событие в onClick

...
Button.OnClick := ButtonsClick;
...

[DeepPurple]

Спасибо! действительно удается для каждой кнопки создать процедуру.
Но как узнать какая именно кнопка нажата? то есть как извлечь какое либо свойство нажатой кнопки, ведь мы не знаем его имени?

[Toxa]

используй sender
например
(sender as tbutton).caption
вот заголовок кнопки которую нажал

[beemoto]

а нафига ваще создовать кнопку динамически!?

[Neeter]

Для очень многих целей и программ надо создавать компоненты динамически, кнопки в том числе, ведь лучше создать динамически сто кнопок, за несколько строчек кода, чем размещать их на форме весь день.
Может надо построить несколько страниц в PageControl, и на каждой разместить кнопки из базы данных, текстового файла там...

[DeepPurple]

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


воспользовался выше указанным советом, попробовал 2 варианта

Procedure TfmMain.ButtonsClick( Sender : TObject );
Begin
(sender as tbutton).Parent.Destroy;

End;

и

Procedure TfmMain.ButtonsClick( Sender : TObject );
Begin
(sender as tbutton).Parent.Destroy;

End;

в обоих случаях возникает 'Abstract Error' но при этом если продолжить нужный обьект (соответственно либо сама кнопка ,либо то к чему она привязана) удаляется! и программа дальше работает... надо как то избавится от этой ошибки
я так догадываюсь что чтото я не дописываю, буду рад если поможете лучше всего чтоб работал 2й вариант

[Neeter]

а parent - это ведь родитель, попробуйте так:

procedure TfmMain.ButtonsClick( Sender : TObject );
var
 i: integer;
begin
 //вы еще просили удалить и чекбокс с таким же свойством tag
 for i := 0 to fmMain.ComponentCount - 1 do
  if (fmMain.Components[i] is TCheckBox) then
   if (fmMain.Components[i] as TCheckBox).Tag = (Sender as TButton).Tag then
    (fmMain.Components[i] as TCheckBox).Destroy;
 (Sender as TButton).Destroy;
end;

[DeepPurple]

к сожалению проблема с
(Sender as TButton).Destroy;
осталась. при добавлении этой строки сразу выскакивает Abstract Error
да и чек боксы не удаляются указанным способом=\
их удалось удалить так:

Procedure TfmMain.ButtonsClick( Sender : TObject );
var
 i: integer;
begin
 for i := 0 to High(da) do
   if da[i].Tag = (Sender as TButton).Tag then
   da[i].Destroy;

end;

пытался удалить кнопку по другому: так как в динамических массивах чекбоксов и баттонов их номера совпадают то попробовал так:

Procedure TfmMain.ButtonsClick( Sender : TObject );
var
 i: integer;
begin
 for i := 0 to High(da) do
   if da[i].Tag = (Sender as TButton).Tag then
   da[i].Destroy;
   but[i].Destroy;
end;

все равно появляется этот абстракт.

вообщем что делать с самой кнопкой так и не понял... так как по сути то она удаляется но постоянно выскакивает этот абстракт...

[Neeter]

Вот так вроде работает:

procedure TfmMain.ButtonsClick(Sender: TObject);
var
 i: integer;
begin
 (Sender as TButton).Destroy;
 for i := 0 to fmMain.ComponentCount - 1 do
  if (fmMain.Components[i] is TCheckBox) then
   if (fmMain.Components[i] as TCheckBox).Tag = (Sender as TButton).Tag then
   begin
    (fmMain.Components[i] as TCheckBox).Destroy;
    Break;
   end;
end;