FHandle - говорит что нет, хотя эта же процедура успешно работает в модуле Dialogs, о

[mrandrey]

Помогите разобраться, а то никак не могу вьехать в чем дело:

procedure CenterWindow(Wnd: HWnd);
var
Rect: TRect;
Monitor: TMonitor;
begin
GetWindowRect(Wnd, Rect);
if Application.MainForm <> nil then
begin
if Assigned(Screen.ActiveForm) then
Monitor := Screen.ActiveForm.Monitor
else
Monitor := Application.MainForm.Monitor;
end
else
Monitor := Screen.Monitors[0];
SetWindowPos(Wnd, 0,
Monitor.Left + ((Monitor.Width - Rect.Right + Rect.Left) div 2),
Monitor.Top + ((Monitor.Height - Rect.Bottom + Rect.Top) div 3),
0, 0, SWP_NOACTIVATE or SWP_NOSIZE or SWP_NOZORDER);
end;
function DialogHook(Wnd: HWnd; Msg: UINT; WParam: WPARAM; LParam: LPARAM): UINT; stdcall;
var CreationControl: TCommonDialog;
begin
Result := 0;
if Msg = WM_INITDIALOG then
begin
CenterWindow(Wnd);
CreationControl.FHandle:=Wnd;
CreationControl.FDefWndProc := Pointer(SetWindowLong(Wnd, GWL_WNDPROC,
Longint(CreationControl.FObjectInst ance)));
CallWindowProc(CreationControl.FObj ectInstance, Wnd, Msg, WParam, LParam);
CreationControl := nil;
end;
end;

FHandle - говорит что нет, хотя эта же процедура успешно работает в модуле Dialogs, обьясните почему????

[John_chek]

Помое му просто

CreationControl.Handle;

[mrandrey]

не все так просто, Handle в этом случае только для чтения, хотя сам вопрос немножко в другом, а именно, одна и таже процедура там работает, а там нет