Динамическое создание событий

[Fandaret]

Здравствуйте!
Динамически создается множество кнопок с порядковым номером в имени. Требуется создать обработчик события OnClick для каждой созданной кнопки, в котором бы переменной присваивался номер нажатой кнопки.

Код создания:

procedure TForm1.Button1Click(Sender: TObject);
var NewButton: TButton;
begin
inc(ButtonsQ);
    NewButton:= Tbutton.Create(Form1);
    NewButton.Name := 'XButton'+inttostr(ButtonsQ);
    NewButton.Parent:=Form1;
    NewButton.Left := (ButtonsQ-1)*60;
    NewButton.Top := 1;
    NewButton.Height := 60;
    NewButton.Width := 60;
ButtonArray[ButtonsQ] := NewButton;
end;

ButtonArray – массив создаваемых кнопок
ButtonsQ – их количество

[Altera]

Так не выйдет. Присваивай там свойству tag порядковый номер кнопки:

procedure TForm1.Button1Click(Sender: TObject);
var NewButton: TButton;
begin
   inc(ButtonsQ);
   NewButton:= Tbutton.Create(Form1);
   ...
   newButton.tag := buttonsQ;
   newButton.onClick := newButtonOnClick;
   ...
   NewButton.Parent:=Form1;
end;

Обработчик создай им всем один. Предполагаю, что у них всех похожие назначения, я про кнопки. опиши эту процедуру.
А определять кнопку будешь по tag.
Например:

procedure{ процедура одрабодки }tForm1.newButtonOnClick(sender: tObject);
begin
   caption := intToStr(tButtons(sender).tag);
   { или так }
   showMessage(tButtons(sender).caption);
end;

[Fandaret]

Спасибо, все работает
P.S. С наступающим)

[romanrakov]

все тоже самое но с попменю проблему немогу решить

[romanrakov]

2 дня парился неделю искал в инете ответ и вот он вот оно решение тока всместо тбуттон вставил тменюитем
СПАСИБО РЕСПЕКТ И УВАЖУХА
СПАСИБО СПАСИБО СПАСИБО СПАСИБО СПАСИБО СПАСИБО СПАСИБО