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

[tramvajman]

Создаю динамически форму, на ней кнопки...
Проблема, не могу создать для кнопок события....

unit NastrUnit;

interface

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

var
  NastrForm: TForm;
  btnOK: TButton;

implementation

procedure Create;
begin
  NastrForm:=TForm.Create(MainForm);
  NastrForm.Width:=300;
  NastrForm.Height:=210;
  NastrForm.Visible:=true;
  NastrForm.BorderStyle:=bsSingle;
  NastrForm.BorderIcons:=[];
  NastrForm.Caption:='Настройка';  
  btnOK:=TButton.Create(NastrForm);
  btnOK.Parent:=NastrForm;
  btnOK.Caption:='Применить';
  btnOK.Width:=75;
  btnOK.Height:=25;
  btnOK.Left:=35;
  btnOK.Top:=140;
  btnOK.OnClick:=????????????????????????????????????????????????
end;

[BOBAH13]

у TButton OnClick имеет тип (вроде ) TNotifyEvent у него приписка of object ну написано же of object, процедура (Sender: TObject) принадлежащяя объекту... так что.. вам нужен класс где будет описан обработчик procedure OnClick(Sender: TObject); и только потом вы его указываите этой кнопке...

p.s. подобные вещи так писать не рекоммендуется... вы уж определитесь то ли пишите юзая ООП или пишите без ООП

[mihali4]

Я уже рассказывал простейший способ, как это решить.
1. Бросаете на форму кнопку.
2. Делаете по ней даблклик - открывается пустая процедура обработки клика.
3. Пишете код в этом обработчике.
4. Там, где вы напузырили 40 штук вопросительных знаков - прописываете ссылку на этот обработчик.
5. Убираете с формы теперь уже ненужную кнопку.
Все.

[tramvajman]

А если формы нет совсем?

[mihali4]

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

А если формы нет совсем?

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

[zekx]

Есть форма,
Есть процедура

procedure TForm1.onClick(Sender: TObject);
begin
showmessage('www');
end;

Есть кнопка на форме Button1 по клику делается:

procedure TForm1.Button1Click(Sender: TObject);
var t:tbutton;
begin
t:=tbutton.Create(self);
t.Width:=50;
t.Height:=50;
t.Left:=100;
t.Top:=150;
t.Parent:=form1;
t.Caption:='222';
t.OnClick:=form1.onClick(sender); ВОТ ТУТ ПО ВАШИМ ЗАПИСЯМ ВСЕ ДОЛЖНО РАБОТАТЬ ! А САМИ ПРОБЫВАЛИ?
end;

А ВОТ ЭТО ЧИТАЛИ?
[Error] Unit1.pas(43): Incompatible types: 'TNotifyEvent' and 'procedure, untyped pointer or untyped parameter'

[Баламут]

zekx, пишешь глупости и хочешь нормального результата? А написать так, как полагается не пытался? А именно
t.OnClick:=form1.onClick;
Почему делается так, а не иначе объяснять надо или все-таки талмуд почитаешь, прежде чем свое ры людям высказывать?

[Rus59Wolf]

вот вы не поверите но оно таки не работает. причем у "родной" кнопки вызов идет а у "наследника" нет...
with TControlClass(Form1.Panel1.Controls[i].ClassType).Create(self) do
begin
Parent := p;
Left := Form1.Panel1.Controls[i].Left;
Top := Form1.Panel1.Controls[i].Top;
OnClick:=button2.OnClick;
end;

[WhiteSpirit]

tramvajman, можно просто объявить класс, создать метод с такими же параметрами, как обработчик события (для OnClick - Sender: TObject), и присвоить этот метод обработчику события

TNewClass = class (TPersistent)
public
  procedure Proc1(Sender: TObject);
end;
...
var Obj: TNewClass;
...
procedure TNewClass.Proc1(Sender: TObject);
begin
if Sender is TButton then
    ShowMessage(TButton(Sender).Caption);
end;
...
But1.OnClick:=Obj.Proc1;

По сути, TNotifyEvent - это просто указатель, ему можно присвоить любой метод, принимающий TObject