Скачать: CL | DM;

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

← →
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
все равно неработало

Члять!

---

← →
begin...end ©   (2006-01-27 17:18) [2]

> Goryn   (27.01.06 01:01)

> //пустая

Очень плохо.

---

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

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.032 c