| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Окна нет [D4]
Goryn © (2006-01-27 01:01:00)был работающий проект окно с треем, 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;
Что делать? помогите
begin...end (2006-01-27 17:18:00) [1]> Goryn (27.01.06 01:01)
> //пустая
Очень плохо.
Goryn (2006-01-27 17:12:00) [2]отбой решилось написанием заново,
а там было убрано все кроме 2 комманд CreateWin и RegisterClass
все равно неработало
Члять!
| |
