动态修改对话框Style的问题

2006-05-19 11:50:25 481 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

在 Delphi 下自定义通用对话框------自定义打开文件对话框在 Delphi 下自定义通用对话框--------------自定义打开文件对话框几次碰到有人在论坛里问如何在 Delphi 下自定义通用对话框，本人对此问题也比较感兴趣，所以抽点时间搞了下，现在把“成果”与大家分享。本文的题目大了点，通用对话框有好多，但这里只以打开文件对话框为例。其实自定义所有通用对话框的原理是一样的。第一步：建立对话框模版先来说个概念：对话框模版。对阅读详情

一个对话框资源，在资源编辑器里面设计时样式：
child
无边框
无系统菜单
无标题
这主要是为了作为子窗口嵌入TAB页用
现在，我又想单独使用它，让他能像普通对话框那样弹出，又有标题栏之类的
我用m_nMode来区分使用的模式，在OnInitDialog()中加入了一下代码：
if(0 != m_nMode)
{
//非子窗口模式
DWORD dwStyle;
dwStyle=GetStyle();
ModifyStyle(dwStyle,WS_DLGFRAME|WS_POPUP|WS_VISIBLE|WS_BORDER,SWP_SHOWWINDOW);
}
结果运行后，找不到弹出的对话框了，调用者窗口也无法操作了。
怎么解决？？

后来我改用下面的代码，能用是能用了，但是问题N多：
if(0 != m_nMode)
{
RECT rect;
GetWindowRect(&rect);
ScreenToClient(&rect);
//单独使用模式
DWORD dwStyle;
dwStyle=GetStyle();
ModifyStyle(dwStyle,
WS_DLGFRAME|WS_POPUP|WS_VISIBLE|WS_BORDER,
SWP_SHOWWINDOW|SWP_FRAMECHANGED);
SetParent(GetDesktopWindow());
rect.right+=30;
rect.bottom+=40;
ClientToScreen(&rect);
MoveWindow(&rect);
EnableWindow();
ShowWindow(SW_SHOW);
//SetWindowPos(&CWnd::wndTopMost,0,0,rect.right-rect.left+50,
//rect.bottom-rect.top+60,SWP_NOMOVE);
//Invalidate();
}
使用上面的代码，不但会出现闪动，任务栏也多出个按钮来
大家有没有更好的办法？

...全文