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

[Warn]

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

function WinProc  ( HWND, MSG, WPR, LPR: Longint ) : Longint; stdcall;
var
  App:TApp;
begin
  //??
  App.WinProc  (HWND, MSG, WPR, LPR);

end;

Что за название темы "hwnd + userdata + winpoc" ?
Читаем правила раздела...

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

1)
WNDCLASSEX.cbClsExtra+GetClassLongPtr
Hу и Set в начале.
2)GetWindowLong с параметром GWL_USERDATA(можно по первому принципу аналогичное организовать)
и естественно в начале Set-версия.
3)Вести массив/список соответствия, хендл-объект

[Warn]

Второй вариант пожалуй удобнее, но я не пойму как мне и куда запихнуть данные? у ф-и SetWindowLong последний параметр число, а не указатель на что-либо( прилагаю короткое описание интерфейсов классов и в последнем блоке кодов то как я пытаюсь реализовать это безобразие(.

unit App.Window;

interface

uses Windows, Messages;

const Default_Window_Width : Cardinal = 1024;
const Default_Window_Height : Cardinal = 768;

// Указатель на ф-ю класса
type procEvent = procedure ( wpr, lpr : Longint ) of object;

type TWindow = class
	public
  	Wc : TWndClass;
    Msg : TMsg;
  	Instance : HWnd;
    Handle : HWnd;
    Width : Integer;
    Height : Integer;
    X : Integer;
    Y : Integer;
    DoMouse : procEvent;
    DoKeyboard : procEvent;

    constructor Create ();overload;
    constructor Create (const Width, Height : Integer; const Caption : string='View');overload;
    procedure DoEvents();
    procedure Show ( Visible : Boolean );
    procedure SetPosition ( const x, y : Integer );
    procedure SetCaption ( const Title : String );
		destructor Destroy (); override;
end;

	function WindowCallBack ( HWND, MSG, WPR, LPR: Longint ) : Longint; stdcall;

implementation
...

unit App;

interface

uses Windows, Messages, App.Window;

type TApp = class
    private
    	procedure InitWindow();
      procedure InitDirect3D();

    public
    	IsRunning : Boolean;
      MainWindow : TWindow;

      constructor Create();
      procedure InitApplication();
      procedure Process();
      procedure MouseEvent( wpr, lpr : Longint );
      procedure KeyboardEvent( wpr, lpr : Longint );
      function WindowCallBack ( HWND, MSG, WPR, LPR: Longint ) : Longint; stdcall;
      destructor Destroy();
  end;
...

procedure TApp.InitWindow();
begin
	if (MainWindow <> nil) then
  	MainWindow.Destroy();

  MainWindow := TWindow.Create();
  SetWindowLong(MainWindow.Handle, GWL_USERDATA, self???)
end;

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

вот
А вообще приведение типов.

[Warn]

ничего не получается(

записываю так

procedure TApp.InitWindow();
begin
	if (MainWindow <> nil) then
  	MainWindow.Destroy();

  MainWindow := TWindow.Create();
	SetWindowLongPtr(MainWindow.Handle, GWLP_USERDATA, Integer(@self));

end;

читаю так

function WindowCallBack ( HWND, MSG, WPR, LPR : Longint ):Longint; stdcall;
var
	AppInst : PApp;
begin
  AppInst:=Pointer(GetWindowLongPtr(HWND, GWLP_USERDATA));
  result := AppInst^.WindowCallBack(HWND, MSG, WPR, LPR);

  end;

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

Классы итак хранятся по указателю.
Потому:

procedure TApp.InitWindow();
begin
	if (MainWindow <> nil) then
  	MainWindow.Destroy();

  MainWindow := TWindow.Create();
	SetWindowLongPtr(MainWindow.Handle, GWLP_USERDATA, Integer(self));
end;

function WindowCallBack ( HWND, MSG, WPR, LPR : Longint ):Longint; stdcall;
var
	AppInst : TApp;
begin
  AppInst:=TApp(GetWindowLongPtr(HWND, GWLP_USERDATA));
  result := AppInst.WindowCallBack(HWND, MSG, WPR, LPR);
  end;

А вообще вы уверены что вам нужен класс TApp, а не TWindow?
По логике поидее окно должно этим заниматся

[Warn]

11:32

SetWindowLongPtr(MainWindow.Handle, GWLP_USERDATA, Integer(self));

не помогло( читает nil, данных все так же нету и вылетает.

А вообще вы уверены что вам нужен класс TApp, а не TWindow?
По логике поидее окно должно этим заниматся

возможно я неправильно продумал архитектуру взаимодействий. У меня создается единственный экземпляр TApp. в интерфейсной части которого в Public секции имеется TWindow и для обработки событий окна есть внешняя ф-я winproc, от которой я хочу события передавать внутрь класса TApp и там дальше разруливать их. Поскольку остальные объекты тоже думал включать в состав TApp т.е. все пространство действий это область видимости которая не выходит за TApp его ф-ии. я хз а как окно этим должно заниматься? пробовал с глобальной переменной TApp, которая будет видна во внешнем winproc, но замучили - кольцевые переопределения или что-то в этом роде.


14:45
Наконец-то решил проблему!
Оказывается ф-я WinAPI когда создает окно

Handle:=CreateWindow('WinAppClass', Default_Window_Title, WS_EX_TOPMOST, 0, 0, Width, Height, 0, 0, Instance, @WindowCallBack);
SetWindowLong(self.Handle, GWL_USERDATA, Integer(self));

первым делом бежит в winproc указанный в зарегистрированной выше структуре wc.
и пытается обработать это событие. а там у меня был код, ожидающий что указатель на UserData уже установлен.

function WindowCallBack ( HWND, MSG, WPR, LPR : Longint ):Longint; stdcall;
var AppInst : PApp;
begin
  AppInst:=Pointer(GetWindowLongPtr(HWND, GWLP_USERDATA));
  AppInst.WinProc(HWND, MSG, WPR, LPR); //Вылет тут поскольку AppInst = nil
  result:=defwindowproc(hwnd,msg,wpr,lpr);
end;

добавил проверку на nil ! все работает и передает в класс события окна.

function WindowCallBack ( HWND, MSG, WPR, LPR : Longint ):Longint; stdcall;
var AppInst : PApp;
begin
  AppInst:=Pointer(GetWindowLongPtr(HWND, GWLP_USERDATA));
  if (AppInst<>nil) then 
  begin
  AppInst.WinProc(HWND, MSG, WPR, LPR);
  end;
  result:=defwindowproc(hwnd,msg,wpr,lpr);
end;

Красные жирные циферки видны ?
Это время, когда вы отправляли свои сообщения друг за другом, подряд.
Читаем правила раздела.
По правилам это приравнивается к флуду.

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

первым делом бежит в winproc указанный в зарегистрированной выше структуре wc

Ну да..WM_CREATE.

Я просто проверить не мог, у меня последняя Делфи улетела...

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

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));

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