Как использовать поля класса в CallBack функции?

[resident]

Есть класс

Код: Выделить всё

type
  TWndFinder = class
    private
      fNames: TStringList; // массив названий окон 
      ....
    public
      property Names: TStringList read fNames;
      procedure FindWindow;
      ....

Процедура FindWindow вызывает функцию обратного вызова EnumCallBack, в которой я хочу заполнить поле fNames.

Код: Выделить всё

procedure TWndFinder.FindWindow;
  begin
     ....
    EnumWindows (@EnumCallBack, 0);
  end; 

Код: Выделить всё

function EnumCallBack(H: HWND; lP: lParam): BOOL; stdcall;
  begin
     ....
     fNames.Add(Wnd);
     ....
  end;

Здесь компилятор не признает fNames. Как бы ему показать это поле?

[Sergei I. Gorelkin]

Код: Выделить всё

procedure TWndFinder.FindWindow; 
  begin 
     .... 
    EnumWindows (@EnumCallBack, Self);
   end;

function EnumCallBack(H: HWND; lP: lParam): BOOL; stdcall;
  var
    this: TWndFinder absolute lp;
  begin
     ....
     this.fNames.Add(Wnd);
     ....
  end;


[resident]

Код: Выделить всё

procedure TWndFinder.FindWindow; 
  begin 
     .... 
    EnumWindows (@EnumCallBack, Self);
   end;

function EnumCallBack(H: HWND; lP: lParam): BOOL; stdcall;
  var
    this: TWndFinder absolute lp;
  begin
     ....
     this.fNames.Add(Wnd);
     ....
  end;


Спасиб
Только в точности как у Вас компилятор ругался, а получилось вот так:

Код: Выделить всё

EnumWindows (@EnumCallBack, LParam(Self));