Процедура/функция обратного вызова в классе

[Krasiosoft]

Здравствуйте.

Хочу сделать принадлежность процедуры/функции обратного вызова классу. Делаю это через классовые процедуры/функции:

class function ...
class procedure ...

Делаю это так:

type
    MyProc = procedure(const str: string);

    TForm1 = class(TForm)
    ...
        class procedure callback(const str: string);
    ...
    end;

...

class procedure TForm1.callback(const str: string);
begin
  Form1.Memo1.Lines.Add(str);
end;

...

procedure UseCallbackFunc(proc: MyProc);
begin
  proc('1111');
end;

Использую:

TForm1.callback('1111');  //  нормально выводит текст в Memo1
UseCallbackFunc(@TForm1.callback);  //  выводит всякий бред в Memo1

Как я понимаю, это проблема в том, что кроме const str: string в callback все же есть скрытый параметр self.

Возможно ли вообще такое сделать, или нужно будет выносить callback из класса?

Заранее благодарен.

[evg_m]

type
  MyclassProc =procedure (const str: string) of object;

procedure UseCallbackFunc(proc: MyClassProc);
begin
  proc('1111');
end;

TForm1 =class
   procedure CallBack(const r: string); //!!! без  class !!!!
end;

procedure TForm1.callback;
begin
  memo1.text:=r;///!! без form1  !!!
end;

UseCallBackFunc(form1.callback);

подробнее есть здесь

[Krasiosoft]

Вы меня наверно неправильно поняли, мне наоборот нужно, чтоб функцию callback можно было использовать, например, в EnumWindows.

[Stilet]

А почему Событие не опишешь? Обязательно коллбэк?

например, в EnumWindows.

Тогда она не должна быть методом класса.

[Krasiosoft]

Сообщение от Stilet

А почему Событие не опишешь?

Можно подробнее, о чем речь?

Сообщение от Stilet

Обязательно коллбэк?

Да, нужно передать адрес на эту функцию в чужую функцию, которая описана как:

MyProc = procedure(const str: string);
...
procedure UseCallbackFunc(proc: MyProc);
begin
  ...
end;

Сообщение от Stilet

Тогда она не должна быть методом класса.

Выходит никак нельзя, чтоб она была в самом классе?

[Stilet]

Можно подробнее, о чем речь?

Ты не в курсе что такое "Событие"?

Выходит никак нельзя, чтоб она была в самом классе?

Скорее нет чем да. Методы от функций тем и отличаются, что у них есть невидимый параметр, указатель на объект, который вызвал метод.

procedure foo(s); -> Procedure <name>(Parameter1)
procedure TClass.foo(s) -> Procedure <name>(Self,Parameter1);

Как твоя EnumWindow воспримет метод, если в нем задействовано два параметра, а не положенный один?

[Пепел Феникса]

EnumWindows

для таких случаев имеет параметр lParam в который можно пихнуть указатель/ссылку на что угодно.

[Krasiosoft]

Сообщение от Stilet

невидимый параметр, указатель на объект, который вызвал метод.

Именно с этим и есть проблема. Я пробовал делать через классовые процедуры/функции, их можно вызывать без объекта, но проблема в том, что с ними тоже работает некорректно.

[Vapaamies]

Сообщение от Krasiosoft

Вы меня наверно неправильно поняли, мне наоборот нужно, чтоб функцию callback можно было использовать, например, в EnumWindows.

Для этого надо написать свой аналог процедуры MakeObjectInstance, которая сидит в недрах VCL и обеспечивает ее магию.

[Krasiosoft]

Должно быть как-то проще. В C++ для этого нужно было просто писать static перед функцией.