怎么样使-----最小化窗体到状态栏 我发现我的程序运行的时候,点右上角的最小化后,程序没有到状态栏,而是出现在左下角了,请问我怎么改! 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 一个可最小化application的方法:在你的程序中加入:拦截application的最小化消息: private { Private declarations } Procedure WMSysCommand(Var msg : TMessage);Message M_SYSCOMMAND; ......procedure TForm1.WMSysCommand(var msg: TMessage);begin if (msg.WParam=SC_MINIMIZE) then begin application.minimize; end else Inherited;end; 还等侍什么.silverwonder(刷卡太快请重刷)已经说和很清楚了。 硬盘毁了,资料荡然无存,哪位兄弟分享下Delphi 6.0 2CD版本 万分感谢 动态创建的TEdit,请问在哪里捕获它失去焦点事件 程序错误分析 悼念我失去的一年,散分 请问TObject.Free TObject.destroy 和FreeAndNil有什么区别? 外国老的面试问题,越精彩越薪水高!!! 怎么实现以下效果? 给大家分,前段时间提问题时给的分数都太少,补偿了 在按鈕上可以加ico嗎?好像都是用bmp的哦 怎么让图片逆时针旋转90度,或者说旋转270度?谢谢! 组合框问题 在delphi中調用sql server 的帶游標的存儲過程
在你的程序中加入:
拦截application的最小化消息: private
{ Private declarations }
Procedure WMSysCommand(Var msg : TMessage);Message M_SYSCOMMAND;
......
procedure TForm1.WMSysCommand(var msg: TMessage);
begin
if (msg.WParam=SC_MINIMIZE) then
begin
application.minimize;
end
else
Inherited;
end;
silverwonder(刷卡太快请重刷)已经说和很清楚了。