Скачать: CL | DM;

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

← →
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 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.023 c