Как результат MethodAddress использовать в качестве Tnotifyevent.

← →
novill (2004-05-31 11:53) [0]

Уважаемые мастаки! Помогите разобраться - никакие мне известные преобразования не проходят. А сделать надо.
Сверхзадача такая - необходимо реализовать динамического меню программы - пользователь запускает программу, а та считывает какие функции ему доступны.

← →
Семен Сорокин © (2004-05-31 12:04) [1]

ниииичего не понимаю.
(с) м/ф "Следствие ведут колобки"

← →
Fay © (2004-05-31 12:04) [2]

MainMenu1.Items[n].Caption := IntToStr(Integer(MethodAddress(...)))
8)

← →
Семен Сорокин © (2004-05-31 12:30) [3]

:)))

procedure TForm1.Button4Click(Sender: TObject); type PNotifyEvent = ^TNotifyEvent; var _p: PNotifyEvent; begin New(_p); _p^ := Form1.OnDblClick; Form1.OnClick := _p^; Dispose(_p) end;

← →
Fay © (2004-05-31 12:37) [4]

Это ваще вилы! 8) Ты бы хоть смайлик поставил!

← →
Семен Сорокин © (2004-05-31 12:52) [5]

Ты бы хоть смайлик поставил!
Так поставил же :))

← →
Fay © (2004-05-31 12:56) [6]

Вижу. Я уже автоматически фильтрую смайлы с количеством улыбков > 2, блин...
8)

← →
novill (2004-05-31 12:56) [7]

Шутники :)

Представьте себе, что на форме определено около десятка
published методов типа
procedure NameOfMethod(Sender: TObject);
По нажатию нопки должно происходить одно из них. Какое именно
известно только в процессе выполнения - из файла считывается
имя процедуры. Вопрос: как это сделать?

← →
TMethod (2004-05-31 13:41) [8]

var
ne: TNotifyEvent;

TMethod(ne).Code := x.MethodAddress("...");
TMethod(ne).Data := Pointer(x);

y.OnSomething := ne;

← →
novill (2004-06-01 08:43) [9]

Спасибо TMethod
Получилось

Как результат MethodAddress использовать в качестве Tnotifyevent. Найти похожие ветки