Метод без класса

[Altera]

Привет всем!
Решил по практиковатся.
Так вот:
Есть скажем кнопка:

var
btn: tButton; 
begin
   btn := tButton.create(application);
   btn.caption := 'temp button;
   ...
   btn.onClick = // тут и проблемы
end;

Как мне назначить кнопке процедуру обработчика, если у меня нет класса.

[mutabor]

Application

[Altera]

Хорошее слово! Одно из моих любимых.
А поконкретнее?

[Квэнди]

btn.onClick = // тут и проблемы

кокнретную строку показывайте хотя бы, а не частями

[Altera]

Если объявляю процедуру там-же:

procedure onClick(sender: tObject);
begin
   showMessage('YES!!!!');
end;

proceudre createButton;
var
btn: tButton; 
begin
   btn := tButton.create(application);
   btn.caption := 'temp button;
   ...
   btn.onClick := onClick;
end;

то, компилятор бурчит, типа: разные типы, метод и регулярная процедура

[Granus]

такая же проблем была
кароч попробуй понормальному создать еще одну кнопку
там синтаксис OnClick'а должен быть определенный
хотя вродь у тя он и есть...
а у батона Parent кто?

[Granus]

мдя
я тут порыл делфи

TNotifyEvent = procedure(Sender: TObject) of object; // -кхм

кароч легче прописать наследник TButton

[Роман Радер]

да проще все!

если у меня нет класса.

нету - сделаем! это и есть ключ к решению

type SomeTempType=object
         a:integer;//чтоб небыло глюков делфи, надо хоть чтото объявить
         procedure SomeBtnClick(s:TObject);
       end;

var 
       aaa:SomeTempType;

все. теперь

var b:TButton;
...
b:=TButton.Create(form1);
b.parent:=form1;
b.tag:=10;
b.top...
b.left...
b.width...
...
b.onclick:=aaa.SomeBtnClick;
....
....
....
procedure SomeTempType.SomeBtnClick(s:TObject);
begin
  if TButton(s).tag=10 then
  begin
     //actions
  end;
end;

ну как, правда просто? а вы наследника писать, ...

[Granus]

хех...
и правда просче)))
не знал што так можно

[Deight]

По моему то что предложил Altera гораздо удобнее, по конкретнее:

unit Unit1;

interface

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

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

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.ClickD8(Sender:TObject);
begin
ShowMessage('122');
end;

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

end.

И если перед ShowMessage добавить

If TButton(Sender).Tag=10 then

То получится тоже самое что и у Романа Радера.