Окна нет

← →
Goryn (2006-01-27 01:01) [0]

был работающий проект окно с треем, API
собрал в класс и теперь неработает!

трей показывается ,но если поднести крысу-
сваливает.

Есно в main

Win:=TWindow.Сreate;
Win.CreateW;

procedure TWindow.CreateW;
WndClass.cbSize:=sizeof(WndClass); WndClass.style:=cs_DblClks; WndClass.lpfnWndProc:=@WndFunc2; WndClass.cbClsExtra:=0; WndClass.cbWndExtra:=0; WndClass.hInstance:=HInstance; WndClass.hIcon:=LoadIcon(0, WndClass.hCursor:=LoadCursor(0,idc_arrow); WndClass.hbrBackground:=0; WndClass.lpszMenuName:=nil; WndClass.lpszClassName:="2"; WndClass.hInstance := hInstance; RegisterClassEx(WndClass); hWnd := CreateWindowEx( 0, "2", "2", WS_POPUP,// констант стиля окна 0, // X: Начальное положение окна 0 // Y: Начальное положение окна 200,// Width: Начальная шиpина окна (в единицах устpойства). 200, // Height: Начальная высота окна (в единицах устpойства). 0, // WndParent: Окно владельца. 0, // Menu: Идентификатоp меню или дочеpнего окна. hInstance,// Instance: Экземпляp соответствующего модуля. Nil); // Param: Значение, пеpеданное в TCreateStruct в паpаметpе

hWnd возращает 0!!!

изменял что-то , проскакивало окно на четверть секунды и сваливало,
(hWnd <>0 ) процесс оставался и на 10 сек курсор по всему экрану типа часы.

(GetLastError)); пробывал ,тупiц непоказывает где ошибка

function WndFunc2(aWnd, Msg: DWord; wParam, lParam: integer): integer; stdcall; BEGIN //пустая END;

Что делать? помогите

← →
Goryn (2006-01-27 17:12) [1]

отбой решилось написанием заново,
а там было убрано все кроме 2 комманд CreateWin и RegisterClass
все равно неработало

Члять!

> Goryn (27.01.06 01:01)

> //пустая

Очень плохо.

Окна нет Найти похожие ветки