自定义博客皮肤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: 原创

119万+: 周排名

123万+: 总排名

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的句柄然后就。。。 //Hwnd 第一个实例的MainForm的句柄，通过FindWindow得到 HWndParent:=GetWindowLong(HWnd,GWL_HWNDPARENT); if IsIconIc(HWndParent) then ShowWindow(HWndParent,SW_RESTORE); ShowWindow(HWnd,SW_RESTORE); SetForegroundWindow(hWnd);
Delphi 消息机制引入的一个副作用
日立奔腾浪潮微软松下联想: Application本来就有一个restore方法，是你们不知道罢了。 if IsIconic(Application.Handle) then Application.Restore; SetForegroundWindow(Application.Handle);
Delphi 消息机制引入的一个副作用
一个人去旅游: 我遇到的问题和你差不多，是有一个程序唤醒或启动已经最小化的另一个程序，用了发消息或者showwindow把第二个程序恢复最大化后发现最小化失效。后来追踪消息过程，发现，最小化消息是已经发出了的，但为什么没处理，看了上文大概就是application的原因。当时我的办法是拦截wm_syscommand消息，把最小化强行实现。 procedure WMMinimize(var Msg: TMessage);message WM_SYSCOMMAND; ... procedure Tfrm_sale.WMMinimize(var Msg: TMessage); begin if Msg.WParam=SC_MINIMIZE then begin frm_sale.WindowState:=wsMinimized; DefWindowProc(Application.Handle, WM_SYSCOMMAND, SC_MINIMIZE, 0); inherited; end; 可以看见用了两次最小化，第二个defwindowproc不用的话，点击工具栏最大化又会出现问题，你会发现窗口最大化后马上有自动最小化，并且象mdi子窗口一样缩小到左下角。
Delphi 消息机制引入的一个副作用
雪之舞: 是你的方法有问题，我也做过类似的程序，很好啊。当然，我并不是说VCL没有问题

学习心得

关注

关注数：文章数：1 文章阅读量：1618 文章收藏量：0

作者: Spacesoft

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

展开

C++ 和 Delphi 的函数覆盖(Override)与重载(overload)

C++ 和 Delphi 的函数覆盖(Override)与重载(overload)Spacesoft【暗夜狂沙】在面向对象编程中，当子类继承了来自基类的函数后，子类有可能需要对其中的一些函数作出与基类不同处理，比如：class CHuman{public: void SayMyName()//打印出对象的姓名 { cout } }；那么很明显，假如

原创 2003-12-19 23:14:00 · 1618 阅读 · 0 评论

学习心得

作者: Spacesoft

C++ 和 Delphi 的函数覆盖(Override)与重载(overload)