Форум: "Основная";
Текущий архив: 2004.11.07;
Скачать: [xml.tar.bz2];
ВнизПередача ссылки на метод класса. Найти похожие ветки
← →
Darrin © (2004-10-26 19:12) [0]Доброго времени суток.
Подскажите пожалуйста, как передать в процедуру ссылку на другую процедуру (метод какого-либо класса), а потом по этой ссылке обратиться к методу.
При попытке присвоить ссылку на метод переменной типа Pointer,P: Pointer;
компилятор требует указать входящие переменные.
....
P:=@MyMetod;
Заранее спасибо.
З.Ы. Тобишь охото передать ссылку на метод, как то делается в API методеSetWindowsHookEx(WH_mouse, @GlobalMouseHook,HInstance, 0);
← →
Юрий Зотов © (2004-10-26 19:42) [1]type
TShowMsgProc = procedure(const Msg: string) of object; {!!!}
TForm1 = class(TForm)
procedure FormClick(Sender: TObject);
private
procedure ShowMsg(const Msg: string);
end;
implementation
procedure CallMethod(Proc: TShowMsgProc); {!!!}
begin
Proc("OK")
end;
procedure TForm1.FormClick(Sender: TObject);
begin
CallMethod(ShowMsg)
end;
procedure TForm1.ShowMsg(const Msg: string);
begin
ShowMessage(Msg)
end;
← →
Darrin © (2004-10-26 22:42) [2]>> Юрий Зотов © (26.10.04 19:42) [1]
Спасибо.
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2004.11.07;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.072 c