要让from在最小化时触发事件~~要写在哪? 要让from在最小化时触发事件~~要写在哪? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs;type TForm1 = class(TForm) private { Private declarations } public procedure WMMINIMIZE(var Msg: TMessage);message WM_SYSCOMMAND; end;var Form1: TForm1;implementation{$R *.dfm}procedure TForm1.WMMINIMIZE(var Msg: TMessage);begin if Msg.WParam = SC_MINIMIZE then ShowMessage('a')end;end. 同意:pankun(剑神一笑)的确要用消息处理 拖一个Additional中的ApplicationEvents控件,在OnMinimize事件中写要处理的代码即可 文本框 验证不能为空 如何编程实现象瑞星那样自动定时执行程序? 关于取数据的一个问题(不好意思,真的是没分给啦,帮个忙啦) 如果写完的程序在第一次能编译,第二次再打开就不能编译了。为什么呀? !如何在服务器端程序里动态改动RemoteModule中的控件属性 关于屏蔽鼠标操作 wm_user的意思? 国内许多计算机的书简直是垃圾! 用delphi6。0自带的安装制作软件做的安装程序为什么不能在xp下运行! 关于换行的Caption 重装Delphi后,原安装的第三方控件要自己一个一个的重装吗? [Delphi+Word]和大家共享(如何使用)
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;type
TForm1 = class(TForm)
private
{ Private declarations }
public
procedure WMMINIMIZE(var Msg: TMessage);message WM_SYSCOMMAND;
end;var
Form1: TForm1;implementation{$R *.dfm}procedure TForm1.WMMINIMIZE(var Msg: TMessage);
begin
if Msg.WParam = SC_MINIMIZE then
ShowMessage('a')
end;end.