2Rrader Забавно... Ладно, представлю код:
| Код |
var
psp : TPropSheetPage;
ahpsp : array[0..1]of HPROPSHEETPAGE;
psh : TPropSheetHeader;
function PageOneSetting(hwPage1: HWND; uMsg: UINT; wp: WPARAM; lp: LPARAM): bool; stdcall;
begin
Result := false;
case uMsg of
WM_INITDIALOG:
begin
end;
WM_COMMAND:
case HIWORD(wp) of
BN_CLICKED: SendMessage(GetParent(hwPage1), PSM_CHANGED, WPARAM(hwPage1), 0);
end;
WM_NOTIFY:
case PNMHdr(lp)^.code of
PSN_APPLY: ;
PSN_RESET: ;
end;
end;
end;
procedure InitPropertySheet;
begin
Randomize;
psp.dwSize := sizeof(psp);
psp.dwFlags := PSP_DEFAULT or PSP_USEICONID;
psp.hInstance := hInstance;
psp.pfnDlgProc := @PageOneSetting;
psp.pszIcon := MAKEINTRESOURCE(1);
psp.pszTemplate := MAKEINTRESOURCE(100);
ahpsp[0] := CreatePropertySheetPage(psp);
ZeroMemory(@psh,sizeof(psh));
psh.dwSize := sizeof(psh);
psh.hInstance := hInstance;
psh.hwndParent := 0;
psh.phpage := @ahpsp[0];
psh.nStartPage := 0;
psh.nPages := 1;
psh.dwFlags := PSH_DEFAULT or PSH_USEICONID or PSH_NOAPPLYNOW;
psh.pszCaption := 'Настройки';
psh.pszIcon := MAKEINTRESOURCE(1);
psh.pfnCallback := nil;
end;
|
И куда липить ShowWindow по-твоему? |