自定义博客皮肤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月

原创国产软件，有些郁闷

北京市政府采购了大笔的微软订单，然后象征性的买了一点国产软件，于是网上的大侠就开始争论起来了。一边说：胡闹，《政府采购法》摆在那里呢，你怎么优先采购了国外软件哪？另外一边说：本来就应该是这样啊，国产软件不够好。一半对一半吧，俺们也不好说谁对谁错，可是有些论调就比较伤人了：人民网来了这样一篇文章《政府采购外国软件　怎么把国软逼上绝路了？》，直接对这类争论下了一个论断：“过去，国内软件企业

2004-11-26 13:50:00 1521

空空如也

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

TA关注的人

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

码龄21年

暂无认证

IP 属地：广东省

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

23: 原创

128万+: 周排名

87万+: 总排名

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的句柄然后就。。。 //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没有问题

原创 国产软件，有些郁闷

空空如也

空空如也

原创国产软件，有些郁闷