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

[Mutagena]

Возникла такая проблема, как динамическое задание событий для компонентов, создаваемых в рантайме.
Я вот так создаю кнопки:

            ButtonTables[k] := TButton.Create(Self);
            With ButtonTables[k] do
            begin
              left:= 405;
              top := 70;
              width := 30;
              height := 30;
            end;
            ButtonTables[k].Parent := GroupTables[k];

Каким образом мне задать событие для динамически-создаваемой кнопки? Например, OnClick?

[spamer]

Вот так:

  newButton.onClick := newButtonOnClick;
//где: newButton - ваша динамически созданная кнопка,
//newButtonOnClick - ваша процедура которая будет выполняться по нажатию на кнопку.

А лучше вот это посмотри - http://goo.gl/YwKd

[Stilet]

Уточню:

With ButtonTables[k] do
            begin
              left:= 405;
              OnClick:=MyButtonClick
...
Procedure TForm1.MyButtonClick(Sender:TObject);
begin
...
end;

Вот как то так

[Mutagena]

А процедуру объявлять нужно после процедуры, где происходит создание кнопок или после?
Попробовала перед и после, но получается ошибка
';' expected but '.' found.
в строке с объявлением процедуры.

[spamer]

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

[Mutagena]

Написала вот так:

type
  TMain = class(TForm)
  ...
  private
    { Private declarations }
  public
    procedure MyButtonClick(Sender:TObject);
  end;

Всё таже ошибка.

[Mutagena]

Всё, разобралась. Имя формы неверно указывала. Всем спасибо.