自定义博客皮肤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的专栏

11月 10月 07月 02月

原创 Delphi 消息机制引入的一个副作用

Delphi 在处理进程的消息时引入了一个隐藏的窗体Application ，借此进行消息的分发。这样的机制优美的处理了消息的分发和处置的问题。但是最近我发现这个机制也引入了一个副作用，会在某些情况下影响程序的界面交互行为。我遇到的需求是需要在程序中实现单个实例，并且在第二个实例被启动的时候，首先将前一个实例置到最前，然后退出。按说这样的问题应该是比较典型的例子，但是这样的一个简单需求就受到了

2004-10-09 23:31:00 2385 6

原创 VS 2003 的一个Bug?

晚上遇到一件很分特的事情：我用VS2003 建立了一个资源DLL 文件，然后向里面放了若干GIF 文件，然后编译通过，看起来一切都这么完美。可是后来在使用的时候就出了错误。我百思不得其解，研究了一个晚上，才发现原来VS203偷偷的背着我把GIF 文件转换成了BMP 格式并储存起来，最后打进DLL 里面去的是披着GIF外皮的BMP 文件，难怪我读取的时候要失败。而且，JPG 格式的文件也没有逃过它的

2004-10-01 02:55:00 1413

空空如也

空空如也

TA创建的收藏夹 TA关注的收藏夹

TA关注的人

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

码龄21年

IP 属地：广东省

IP属地以运营商信息为准，境内显示到省（区、市），境外显示到国家（地区）

23: 原创

126万+: 周排名

180万+: 总排名

2万+: 访问

: 等级

618: 积分

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没有问题

最新文章

提示

确定要删除当前文章？

取消删除