Адрес объекта в памяти

[Artempokrowski]

Сообщение от Пепел Феникса

кого его?
раскрывайте карты.

ибо у метода селф это одно, а вот в ссылках на процедуру-метод другое.

procedure Tpic1.Click;
var
pointer;
begin
inherited Click;
p:=self;
Showmessage(p);
end;

Таким образом я получаю адрес объекта или процедуры???

[Artempokrowski]

Сообщение от Аватар

Чем не нравится такой способ

procedure TForm1.Button2Click(Sender: TObject);
begin
  Label2.Caption:=IntToStr(DWORD(Sender));
end;

Да, но мне нужно узнать для динамически создаваемых объектов.

[Аватар]

А что мешает динамически созданному объекту, имеющему событие OnClick, назначить обработчик события
xObject.OnClick:=ProcClick;

[Artempokrowski]

Сообщение от Аватар

А что мешает динамически созданному объекту, имеющему событие OnClick, назначить обработчик события
xObject.OnClick:=ProcClick;

МММ я похож на дятла из твоего статуса))