有关ChooseFont,choosecolor等系统对话框(50分)

我用choosefont弹出了一个字体对话框，但请问我该如何设定他显示的位置呢？比如让其弹出时显示居中。

参考 SetWindowPos函数

不行<br>choosefont的弹出窗口句柄我该怎么获得呢？<br>以颜色窗口为例吧<br>function TProDialog.GetColorDialog(cColor:TColor;out NewColor:TColor): Boolean;<br>var<br> &nbsp;cc:TChooseColor;<br>begin<br> &nbsp;Result := False;<br> &nbsp;cc.lStructSize := SizeOf(TChooseColor);<br> &nbsp;cc.hWndOwner := Application.Handle;<br> &nbsp;cc.Flags := CC_FULLOPEN or CC_RGBINIT;<br> &nbsp;cc.rgbResult := cColor;<br> &nbsp;if ChooseColor(cc) then &nbsp;//弹出窗口<br> &nbsp;begin<br> &nbsp; &nbsp;NewColor := cc.rgbResult;<br> &nbsp; &nbsp;Result := True;<br> &nbsp;end;<br>end;<br>我该如何使用SetWindowPos呢？好像不好设置吧

有知道的吗？