суперклассинг

[BLACK_RAIN]

Здравствуйте.
Сделал свой класс. Он создает и отрисовывает CHILD-окно WinAPI.

type
  testclass = class(TObject)
    public
      window : HWND;
end;

var
t : array of testclass;

setlenth(t,10);
for i:=0 to 9 do
begin  
  t[i] := testclass.create;
  setwindowlong(t.window, gwl_wndproc, <процедура>)
end;

В цикле создаю несколько таких классов и делаю суперклассинг окна. В оконной процедуре ловлю события, например WM_LBUTTONDOWN. Как узнать, какой экземпляр класса послал событие?

[Filka]

В оконную процедуру передаётся дескриптор окна...

[BLACK_RAIN]

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

В оконную процедуру передаётся дескриптор окна...

и как узнать, какому экземпляру из массива оно принадлежит?

[Filka]

var
  Idx, I: Integer;

for I := Low(t) to High(t) do
begin  
  if t[i].window = hwnd then
  begin
    Idx := I;
    break; 
  end;
end;

---

function WndToIdx(AWnd: HWND): Integer;
var
  I: Integer;
begin
  for I := Low(t) to High(t) do
  begin
    if t[I].window = AWnd then
    begin
      Result := I;
      Exit;
    end;
  end;
  Result := -1;
end;