如何接收窗体最小化的事件问题? lbsoft:留个mail,代码我给你寄过去 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 非常简单:unit Unit1;interfaceuses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;type TForm1 = class(TForm) private { Private declarations } procedure test(var Msg:TMessage);message wm_syscommand; public { Public declarations } end;var Form1: TForm1;implementation{$R *.DFM}procedure TForm1.test(var Msg:TMessage);begin if Msg.wParam=SC_CLOSE then Form1.Hide //你需要的处理 else inherited;end;end. 疏忽,最小化时Msg.wParam=SC_MINIMIZE就行了 >procedure test(var Msg:TMessage);message wm_syscommand; 比较标准的做法是将函数命名为 wmsyscommandprocedure wmsyscommand(var Msg:TMessage);message wm_syscommand; tull(WilliamTull)说得对,虽然我只是随便写几行代码测试一下,但也的确应该按命名规范来做,我准备马上发个贴子来讨论一下,忘各位捧场,100分哦 gz_xjf(thinker)回答的很全面,我当时也是这么做的. 大家都讲得如此好啦,: lbsoft(lbsoft) 我就不寄了。大家原理都一样。 放一个applicationEvent控件就行了,里面有关闭,最小化的事件。何必那么麻烦! 各位大侠,小弟是初学者,在用DELPH进行ACCESS数据库编程时,碰到两个问题,还请帮忙解决! 一个拖拽方法 + 一个难题 stingAlignGrid 求助!!! 关于ListView的使用... 求助:如何使程序在不同分辨率下正常显示在屏幕右侧。 请问初学Delphi 看什么书好? Delphi中打印时,在数据不足时如何以空行填充至一页? 关于释放??? 资源共享+初级问题:) 我刚用delphi6 做了个数据库程序,无法发布。 谁帮我,很简单
unit Unit1;interfaceuses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;type
TForm1 = class(TForm)
private
{ Private declarations }
procedure test(var Msg:TMessage);message wm_syscommand;
public
{ Public declarations }
end;var
Form1: TForm1;implementation{$R *.DFM}procedure TForm1.test(var Msg:TMessage);
begin
if Msg.wParam=SC_CLOSE then
Form1.Hide //你需要的处理
else
inherited;end;end.
比较标准的做法是将函数命名为 wmsyscommand
procedure wmsyscommand(var Msg:TMessage);message wm_syscommand;
来做,我准备马上发个贴子来讨论一下,忘各位捧场,100分哦