Как задать обработчик события?

[locator]

Доброго времени суток! Не подскажете, как задать обработчик события (например OnClick) для объекта (например TButton) программным способом? (не применяя инспектор объектов)
Спасибо за ответ!

[x77]

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

Код:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure OnClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  published
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.OnClick(Sender: TObject);
begin
  ShowMessage ('Button clicked!');
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Button1.OnClick := OnClick;
end;

end.

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

З.Ы. не за что

[locator]

Ну а если надо снять этот обработчик, то
  Button1.OnClick := 0;
это верно или надо как-то по научному сделать? 

[zubr]

Ну а если надо снять этот обработчик, то
  Button1.OnClick := 0;
это верно или надо как-то по научному сделать?

Верно будет Button1.OnClick := nil;

[SEA]

У меня был пример, когда нужно было при выборе элемента базы данных вывести на панель кнопки, каждая из которых будет открывать информацию по своему объекту.

Я сейчас искать тот код не буду, но в общем все выглядит так:

создаем переменную arButtons: TList;
for i := 1 to needcount do begin
 arButtons.Add(TButton.Create(Self));
 arButtons[arButtons.Count-1].Hint := ArrayOfMyObjectsWhichMustBeShowd[i-1].Name; {or ID - у кого как}
 arButtons[arButtons.Count-1].OnClick := MyButtonClick(Sender: TObject);
 Self.InsertControl(arButtons[arButtons.Count-1]);
end;

А та процедура
procedure MyButtonClick(Sender: TObject);
begin
 ShowObjectInfo(Sender.Hint);
end;


{Ну, а теперь два момента: for i:= 1 to needcount - это потому, что цикл for в Delphi какой-то калечный - for i := 0 to 0 все равно один раз пройдет. Посему я начинаю счетчик с единицы и if needcount=0 then цикл ниразу не проходит. А отсюда i-1 потом.}

[SEA]

Ну а если надо снять этот обработчик, то
  Button1.OnClick := 0;
это верно или надо как-то по научному сделать?

Верно будет Button1.OnClick := nil;

А тебе Дельфа не даст присвоить ноль, потому что 0 - это числовая константа, а метод OnClick требует TNotifyEvent.