TMethod = record Code, Data: Pointer; end;

← →
Matolch (2002-11-26 21:21) [0]

Подскажите, кто знает, как можно получить через значения переменной типа

TMethod = record
Code, Data: Pointer;
end;

строчку "Button1Click", возможно ли это?

← →
Юрий Зотов (2002-11-26 21:38) [1]

Если это published-метод, то можно:
TObject(Data).MethodName(Code)

← →
TTCustomDelphiMaster (2002-11-26 21:44) [2]

Может такое решение подойдет
var
MyProc: TNotifyEvent;

...
MyProc := Button1Click;
ShowMessage(MethodName(@MyProc));
...

← →
Matolch (2002-11-26 22:25) [3]

Спасибо, буду пробовать!

← →
Matolch (2002-11-26 22:36) [4]

> Юрий Зотов ©

Работает, как раз, то что нужно !
Большое спасибо за совет !
Жаль, что далеко, пивка бы налил !

> TTCustomDelphiMaster ©

Спасибо за внимание, но это не совсем то, что надо. Зачем мне определять уже известное мне заранее (MyProc := Button1Click;) значение, ограничившись TNotEvnt. И тебе пивка !

← →
Matolch (2002-11-26 22:40) [5]

> TTCustomDelphiMaster ©

Прошу прощения, это одно и то же. Пивка!

← →
Matolch (2002-11-26 22:44) [6]

tkMethod: begin MethodC := GetMethodProp(Component, PropName); MethodS := GetMethodProp(SomeObject, PropName); if (MethodC.Code <> MethodS.Code) or (MethodC.Data <> MethodS.Data) then begin StrValueC := {TObject(MethodC.Data).}MethodName(MethodC.Code); Add(" " + PropName + " := " + StrValueC + ";"); end; end;

Если не ремить TObject(MethodC.Data), прекрасно работает.

← →
Юрий Зотов (2002-11-27 00:14) [7]

Если ремить, то вызывается MethodName того объекта, которому принадлежит данный код. А если не ремить, то объекта, находящегося по адресу Data. Так что ничего странного.

← →
Matolch (2002-11-27 16:17) [8]

Согл.

← →
Matolch (2002-11-27 16:30) [9]

Мне лишь непонятно, почему не получается так:

StrValueC := Component.MethodName(MethodC.Code);

← →
Юрий Зотов (2002-11-27 16:58) [10]

Потому что у редактируемого компонента нет такого метода. У него есть событие, на обработку которого данный метод назначен, но сам этот метод принадлежит другому объекту (обычно форме).

← →
Matolch (2002-11-27 19:04) [11]

TMethod = record Code, Data: Pointer; end; Найти похожие ветки