Как можно закрепить за окном класс

Posted by Chas under Delphi

Как можно закрепить за окном класс(указатель на него), а потом вытаскивать класс(указатель) в процедуре обработки событий.

Пепел Феникса
Я бы лично делал бы нечто подобное так:

class TWindow=class

 protected

  function WndProc(uMsg:UINT;wParam,lParam:integer):integer;virtual abstract;

 end;

---------------------
function ClassWndProc(hwnd:THandle;uMsg:UINT;wParam,lParam:integer):integer;stdcall;

var W:TWindow;

begin

 if(uMsg=WM_CREATE)

  then

   begin

    W:=TWindow((LPCREATESTRUCT(lParam))^.lpCreateParams);

    W.Handle:=hwnd;

    SetWindowLongPtr(hwnd,GWLP_USERDATA,W);//про приведение типов не помню

   end

  else

   begin

    W:=TWindow(GetWindowLongPtr(hwnd,GWLP_USERDATA));

   end;

 Result:=W.WndProc(uMsg,wParam,lParam);

end;

Ну и естественно для этого надо в последнем параметре CreateWindowEx передавать наш TWindow объект.

CreateWindowEx(...,Pointer(W));

Правда это совсем в крадце, ибо там есть нюансы

тема на форуме

Похожие статьи

• Cвернуть всё кроме моей формы
• Создать окно по центру экрана
• Как переключить фокус на предыдущее активное окно?
• Посоветуйте ПО для защиты ПК с пред-настройкой «групп файлов». На примере Comodo.
• Handle окна по файлу EXE
• При нажатии кнопки открыть сайт
• Получить время через интернет
• Значок «new» к картинке
• Сеть на ассемблере: проблема
• Получить иконку файла