Еще

← →
Daniel (2004-01-31 22:48) [0]

FObjectInstance := Classes.MakeObjectInstance(WndProc);
{$ENDIF}
WindowClass.lpfnWndProc := @DefWindowProc;
if not GetClassInfo(HInstance, WindowClass.lpszClassName, TempClass) then
begin
WindowClass.hInstance := HInstance;
if Windows.RegisterClass(WindowClass) = 0 then
raise EOutOfResources.Create(SWindowClass);
end;
FHandle := CreateWindow(WindowClass.lpszClassName, PChar(FTitle),
WS_POPUP or WS_CAPTION or WS_CLIPSIBLINGS or WS_SYSMENU
or WS_MINIMIZEBOX,
GetSystemMetrics(SM_CXSCREEN) div 2,
GetSystemMetrics(SM_CYSCREEN) div 2,
0, 0, 0, 0, HInstance, nil);
FTitle := "";
FHandleCreated := True;
SetWindowLong(FHandle, GWL_WNDPROC, Longint(FObjectInstance));

Нельзя было сразу в начале WindowClass.lpfnWndProc := WndProc;
а не создавать отдельный объект?

← →
Vuk (2004-01-31 23:31) [1]

>Нельзя было сразу в начале WindowClass.lpfnWndProc := WndProc;
>а не создавать отдельный объект?
Нельзя. Метод объекта и оконная процедура по параметрам различаются.

← →
Daniel (2004-01-31 23:51) [2]

> метод объекта и оконная процедура...

Не заметил, теперь понятно в чем дело. Спасибо

Еще Найти похожие ветки