DateTimePicker

← →
Beduir (2006-08-14 19:37) [0]

Есть такой ресурс диалога
1 DIALOGEX 0, 0, 154, 200, 0 STYLE DS_SETFONT | DS_MODALFRAME | DS_3DLOOK | DS_CENTER | WS_POPUPWINDOW | WS_CAPTION EXSTYLE WS_EX_DLGMODALFRAME | WS_EX_APPWINDOW CLASS "MAINFORM" CAPTION "My Program" FONT 8, "MS Shell Dlg" { CONTROL "Picker", 110, "SysDateTimePick32", WS_TABSTOP | 0x0000001C, 7, 105, 61, 14 DEFPUSHBUTTON "OK", 1, 43, 179, 50, 14, WS_DISABLED PUSHBUTTON "Отмена", 2, 97, 179, 50, 14 }

Окно создаю так:
WndClass.cbSize := SizeOf(WndClass); WndClass.Style := CS_HREDRAW or CS_VREDRAW; WndClass.lpfnWndProc := @WindowProc; WndClass.cbClsExtra := 0; WndClass.cbWndExtra := DLGWINDOWEXTRA; WndClass.hInstance := HInstance; WndClass.hIcon := LoadIcon(HInstance, PChar(1)); WndClass.hCursor := LoadCursor(0, IDC_ARROW); WndClass.hbrBackground := COLOR_BTNFACE + 1; WndClass.lpszMenuName := nil; WndClass.lpszClassName := "MAINFORM"; RegisterClassEx(WndClass); MainWnd := CreateDialog(hInstance, PChar(1), 0, nil);

На строчке
MainWnd := CreateDialog(hInstance, PChar(1), 0, nil);
в Windows 98 и 2000 программа ничего не сказав, завершает свою работу. В Xp все работает нормально. Опытным путем выяснил что все дело в DateTimePicker, если его убрать из диалога все работает нормально. Пробовал его создавать через CreateWindow, он не появляется в окне. Почему он не хочет работать, где ошибка?
Спасибо.

← →
Чапаев © (2006-08-14 21:06) [1]

comctl32.dll не проинициализирован?

← →
Leonid Troyanovsky © (2006-08-14 21:16) [2]

> Чапаев © (14.08.06 21:06) [1]

> comctl32.dll не проинициализирован?

Нет, конечно.

--
Regards, LVT.

← →
Beduir (2006-08-15 05:13) [3]

Сейчас на память не помню (с работы пишу), но не уверен. Знаю только точно, что CommCtrl в Uses есть. CommCtrl сам себя не инициализирует?

← →
Чапаев © (2006-08-15 09:57) [4]

> CommCtrl сам себя не инициализирует?

Сам -- нет. Есть мнение, что если вызовешь перед созданием диалога InitCommonControlsEx() из этого самого модуля, то будешь должен мне поллитру... ;-)

← →
Ketmar © (2006-08-15 10:02) [5]

> [4] Чапаев © (15.08.06 09:57)
вызывай, и будь должен мне 350. и нафиг всяких Чапаевых, которые задирают цены. %-)

← →
Leonid Troyanovsky © (2006-08-15 19:33) [6]

> Ketmar © (15.08.06 10:02) [5]

> вызывай, и будь должен мне 350. и нафиг всяких Чапаевых,
> которые задирают цены. %-)

А.. 150 мне?
Спасибо, спасибо. Уважил.

В некоторых отрядах по 100, а в других и по 150.

--
Regards, LVT.

> MainWnd := CreateDialog(hInstance, PChar(1), 0, nil);

а где адрес оконной процедуры?

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