ListView в дилоговом ресурсе (res)

← →
Chlavik © (2005-06-29 15:07) [0]

Привет! Для такой заманухи есть Сообщение WM_INIDIALOG и так далее. Я создал диалоговй ресурс с ListView и пару кнопочек на нём, при отображении (а это Outlook PropPage - если что смотрите IExchExtPropertySheets) на окне ничего не отображается, пока не кликнуть по тому месту где контрол (ListView). В DialogWndProp я ничего кроме WM_INIDIALOG не обрабатываю - потому что я не знаю что еще нужно (еще знаю WM_COMMAND что бы получить события от контрлоов )... Так вот вопрос какие еще сообщения я должен обработать в ДилогWNDProc что бы отобразились мои контрролы ? Пасиба! Ресурс создал VS 2003 .. - если это поможет

← →
Chlavik © (2005-06-29 15:33) [1]

Вот кусок кода

constructor TCustomPropSheet.Create(const aExtCallBack: IExchExtCallback; pSheet: PPROPSHEETPAGE); begin FExtCallBack:=aExtCallBack; inherited Create(nil); pSheet.dwSize:=SizeOf(TPROPSHEETPAGE); pSheet.dwFlags:=PSP_DEFAULT or PSP_HASHELP or PSP_USETITLE or PSP_USEHICON;// or PSP_USECALLBACK;// or PSP_USEHEADERTITLE; pSheet.hInstance:=hInstance; {$R FolderOptions.res} pSheet.pszTemplate:=MAKEINTRESOURCE(404); pSheet.hIcon:=Icon.Handle; pSheet.lParam:=Integer(Self); pSheet.pszTitle:=PChar(Self.Caption); //FPageWndProc:=MakeObjectInstance(PageWndProc); pSheet.pfnDlgProc:=@StdPageWndProc; pSheet.pfnCallback:=PropSheetCallBack; end
А вот и DialogProc на Закоментирваный код - не обращайте внимания...

function StdPageWndProc(hDlg:HWND; uMsg:UINT; wParam:UINT;lParam:UINT):BOOL; stdcall;
var
ClientR:TRect;
begin
case uMsg of
WM_INITDIALOG: Result:=true;
{with TCustomPropSheet(PPropSheetPage(lParam).lParam) do
begin
//400,375
Result:=true;
BorderStyle:=bsNone;
Windows.GetClientRect((hDlg),ClientR);
//Width:=ClientR.Right; Height:=ClientR.Bottom;
Left:=ClientR.Left; Top:=ClientR.Top;
FPageHandle:=hDlg;
//SetWindowLong(hDlg, DWL_DLGPROC,Integer(FPageWndProc));
ParentWindow:=FPageHandle;
Show;
end;
else Result:=false;}
end;
end;

ListView в дилоговом ресурсе (res) Найти похожие ветки