Потерял пример кода, может кто поможет восстановить...

Пример стандартного присвоения события в run-time:

Код

type  TForm1 = class(TForm)    Button1: TButton;    procedure FormCreate(Sender: TObject);  private    procedure Click(Sender: TObject);  end; var  Form1: TForm1; implementation procedure TForm1.Click(Sender: TObject); begin  // do something end; procedure TForm1.FormCreate(Sender: TObject); begin  button1.OnClick:=Click; end; end.

Это конечно работает без нареканий. А как сделать чтобы  "procedure Click" была не методом класса, а отдельно стоящей функцией? Мелькают воспоминания, что там нужно добавить ещё один параметер в функцию, но какой и где не могу вспомнить....

procedure Click(Self: TObject; Sender: TObject);
begin
 ...
end;

var
 evhandler: TNotifyEvent;
 
 TMethod(evhandler).Code := @Click;
 TMethod(evhandler).Data := nil;

 Button1.OnClick := evhandler;

Без извращений можно так:

TDummy = class
  class procedure Click(Sender: TObject);
end;

Button1.OnClick := TDummy.Click;

Не, не то! Я видел где-то очень простое решение, что то типа

Procedure Click(Something:TSomething; Sender:TObject);

Вот только не могу вспомнить что там было вместо Something:TSomething, а с фиктивными классами и указателями я знаю, только это как то не очень изящно...

Не думаю, что это вообще возможно, поскольку
тип TProc = procedure(...); - это просто указатель, 4 байта,
а TProcObj = procedure(...)of object; - это 8 байтовая структура,
и они не могут быть приведены друг к другу иначе чем

 TMethod(ProcObj).Code := @Proc;
 TMethod(ProcObj).Data := nil; // Self

То, что там есть дополнительный параметр - это понятно, это Self,
(туда будет передано то, что хранится в TMethod(ProcObj).Data),
но, как его не объяви, преобразовать ссылку на процедуру в ссылку на метод объекта компилятор не даст. Ни при каких условиях.

А так вроде работает, но может это черевато проблемами?

Код

Procedure c(sender:TObject); begin  showmessage('!'); end; procedure TForm1.FormCreate(Sender: TObject); begin  @Button1.OnClick:=@c; end;

Забавно.
А ты Sender анализировать не пробывал? По идее, при вызове OnClick первым параметром будет запихнут указатель на экземпляр того класса который в этом OnClick хранится . Я в низкоуровневой реализации не силен, но кажись, так как параметры в процедурах в Delphi передаются через регистры, то ничего страшного не произойдет. В этом случае можно даже выудить Sender взяв значение нужного регистра. А если они передаются через стек? Кто-то его должен очищать.

 Ага. Вот тут Delphi загрузилось, и проверим....
Так и есть, чтобы все было тип-топ пишим:

procedure C(Self:pointer;Sender:TObject);
begin
TButton(Sender).Caption:='ee';
end;

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

Self тут у нас будет равен nil, а Sender как раз и получается Sender'ом.