Передача ссылки на метод класса.

← →
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;

Передача ссылки на метод класса. Найти похожие ветки