Текущий архив: 2004.02.10;
Скачать: CL | DM;

Вниз

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

← →
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]

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

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

---

Страницы: 1 вся ветка

Текущий архив: 2004.02.10;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.024 c