Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.07.18;
Скачать: 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 вся ветка

Текущий архив: 2005.07.18;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.026 c
3-1118138638
ElenaPetra
2005-06-07 14:03
2005.07.18
Хранение Excel-файлов в бд SQL.


3-1117874011
DSKalugin
2005-06-04 12:33
2005.07.18
наследники TCustomADODataSet


14-1119420925
Игорь Шевченко
2005-06-22 10:15
2005.07.18
11 вещей, которым вас забыли научить в школе.


4-1116247125
KSN
2005-05-16 16:38
2005.07.18
запуск процесса


1-1120406292
sofs
2005-07-03 19:58
2005.07.18
Загрузка большого кол-ва информации из массива в RichEdit