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

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;

---

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

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



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