ShowModal窗口存在时,怎么让主窗口能够响应最大化,最小化的消息?而且主窗口上的东西不能够操作只能响应响应最大化,最小化和关闭的消息。
解决方案 »
- 怎样取得sqlserver上的时间
- 怎么样使TStringGrid的某列对齐?
- 2个问题:如何获取拷贝文件时的速度,即复制需要的时间!怎么写复制文件时的进度条!
- 哪有免费的电子书<DELPHI面向对象编程思想> 刘艺写的. 谢了!!!!
- ★★注意!Pascal书籍列表!谁说Pascal的书少,多的吓死你!!
- 祝大家新春快乐! (此贴过年再结贴)
- TQuery构件怎么执行带参数的oracle存储过程?高分
- asp上传图片增加水印(附源代码)
- 如何刷选分类记录还要选出分类的个数
- 使用adodataset 时出现 ‘多部操作错误‘,如何解决?
- 如何将多个字符串数组连接成为一个字符串?
- 关于软件的架构和多线程同步的问题!
procedure TForm1.FormCreate(Sender: TObject);
begin
perform(WM_SIZE,SIZE_MAXIMIZED,0);
end;
那就用這個。。var hwnd: hwnd;//句柄PostMessage(hwnd,WM_SYSCOMMAND, SC_MINIMIZE,0); //最小化
PostMessage(hwnd,WM_SYSCOMMAND, SC_MAXIMIZE,0);//最大化
PostMessage(hwnd,WM_SYSCOMMAND, SC_CLOSE,0);//关闭
因此,要达到lz的要求,函数描述如下,可以测试看看
procedure MaxMainForm(AMainFormHandle: THandle);
begin
EnableWindow(AMainFormHandle,True); //开启消息接收
try
PostMessage(AMainFormHandle,WM_SYSCOMMAND, SC_MAXIMIZE,0); //发送最大化消息
Application.ProcessMessage; //处理消息
finally
EnableWindow(AMainFormHandle,False); //关闭消息接收
end;end;
2、同时主窗体提供一对方法:开关——设置主窗体所有可视化控件Enabled状态即可
PostMessage(hwnd,WM_SYSCOMMAND, SC_MINIMIZE,0); //最小化
PostMessage(hwnd,WM_SYSCOMMAND, SC_MAXIMIZE,0);//最大化
PostMessage(hwnd,WM_SYSCOMMAND, SC_CLOSE,0);//关闭