自定义博客皮肤VIP专享

*博客头图：

点击选择上传的图片

格式为PNG、JPG，宽度*高度大于1920*100像素，不超过2MB，主视觉建议放在右侧，请参照线上博客头图

请上传大于1920*100像素的图片！

博客底图：

点击选择上传的图片

图片格式为PNG、JPG，不超过1MB，可上下左右平铺至整个背景

栏目图：

点击选择上传的图片

图片格式为PNG、JPG，图片宽度*高度为300*38像素，不超过0.5MB

主标题颜色：

RGB颜色，例如：#AFAFAF

Hover：

RGB颜色，例如：#AFAFAF

副标题颜色：

RGB颜色，例如：#AFAFAF

预览取消提交

自定义博客皮肤

-+

上一步保存

Spacesoft的专栏

Spacesoft CSDN认证博客专家 CSDN认证企业博客

码龄20年

23: 原创

110万+: 周排名

190万+: 总排名

2万+: 访问

: 等级

598: 积分

0: 粉丝

1: 获赞

6: 评论

3: 收藏

私信

关注

热门文章

分类专栏

最新评论

Delphi 消息机制引入的一个副作用
carwin: 太感谢了，一直被这个问题困扰。。不过貌似这种方法有问题，在恢复窗口之后，最小化到托盘不起作用了！！ //Hwnd 第一个实例的MainForm的句柄，通过FindWindow得到 HWndParent:=GetWindowLong(HWnd,GWL_HWNDPARENT); if IsIconIc(HWndParent) then ShowWindow(HWndParent,SW_RESTORE); ShowWindow(HWnd,SW_RESTORE); SetForegroundWindow(hWnd); 我的做法是自定义了一个消息MY_SHOW，然后在该消息处理函数中Aplication.restore;self.show();就没出现任何问题了。。。
Delphi 消息机制引入的一个副作用
卖女孩的小火柴: 　　我也遇到了相同的问题，在网上也找不到答案，只能自己摸索。我是通过全局原子来防止第二个实例运行，在取得第一个实例MainForm的句柄后，如果直接使用ShowWindow和 SetForegroundWindow（或者发送消息再 SetForegroundWindow，再或者SetWindowPos），则第一个实例可以作为顶端窗口显示，但最小化按钮无效了。。。经过测试发现在最小化第一个实例时，系统实际上是将Application最小化了。。。现在问题的关键就是找到Application的句柄然后就。。。 <br> <br>//Hwnd 第一个实例的MainForm的句柄，通过FindWindow得到 <br>HWndParent:=GetWindowLong(HWnd,GWL_HWNDPARENT); <br>if IsIconIc(HWndParent) then <br> ShowWindow(HWndParent,SW_RESTORE); <br>ShowWindow(HWnd,SW_RESTORE); <br>SetForegroundWindow(hWnd); <br> <br>
Delphi 消息机制引入的一个副作用
日立奔腾浪潮微软松下联想: Application本来就有一个restore方法，是你们不知道罢了。 <br>if IsIconic(Application.Handle) then <br> Application.Restore; <br>SetForegroundWindow(Application.Handle); <br>
Delphi 消息机制引入的一个副作用
一个人去旅游: 我遇到的问题和你差不多，是有一个程序唤醒或启动已经最小化的另一个程序，用了发消息或者showwindow把第二个程序恢复最大化后发现最小化失效。后来追踪消息过程，发现，最小化消息是已经发出了的，但为什么没处理，看了上文大概就是application的原因。当时我的办法是拦截wm_syscommand消息，把最小化强行实现。 <br>procedure WMMinimize(var Msg: TMessage);message WM_SYSCOMMAND; <br> <br>... <br> <br>procedure Tfrm_sale.WMMinimize(var Msg: TMessage); <br>begin <br> if Msg.WParam=SC_MINIMIZE then <br> begin <br> frm_sale.WindowState:=wsMinimized; <br> DefWindowProc(Application.Handle, WM_SYSCOMMAND, SC_MINIMIZE, 0); <br> inherited; <br>end; <br> <br>可以看见用了两次最小化，第二个defwindowproc不用的话，点击工具栏最大化又会出现问题，你会发现窗口最大化后马上有自动最小化，并且象mdi子窗口一样缩小到左下角。
Delphi 消息机制引入的一个副作用
雪之舞: 是你的方法有问题，我也做过类似的程序，很好啊。当然，我并不是说VCL没有问题

最新文章

开心一笑

关注

关注数：文章数：2 文章阅读量：2430 文章收藏量：0

作者: Spacesoft

这个作者很懒，什么都没留下…

展开