我想在点击窗口最小化按钮时触发某个事件,请教我该怎么做???
解决方案 »
- 用dephi 怎么修改文件夹的名字啊?
- 急!模态窗体居然会被其它窗体遮盖,请高手指点!
- 用quickrep实现打印预览时,怎样把那个打印功能去掉,实现只预览不打印,有解送100分
- 想在timer1中调用timer2的timer事件,怎么用?
- 紧急求救!ServerSocket和clientSocket通讯问题
- 不明不白的丢失引号`~~~急啊`~~~顶者有份`~~~`
- 那位高手知道SaveKey的用法怎么我生成的文件大小为0
- 发分快进来啊!!!!
- 求教关于extended stored procedure 的操作
- 到哪可以找到DAO.EXE?
- 非常唔错的~~天蓝色~简结线条版~~风格包下载
- 请教关于数据库编程方面的问题
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;type
TForm1 = class(TForm)
ApplicationEvents1: TApplicationEvents;
procedure ApplicationEvents1Minimize(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;implementation{$R *.dfm}procedure TForm1.ApplicationEvents1Minimize(Sender: TObject);
begin
//这里写
end;end.
{ Public declarations }
procedure WMSysCommand(var Msg: TWMSysCommand); message WM_SYSCOMMAND;
procedure TForm1.WMSysCommand(var Msg: TWMSysCommand);
begin
if (Msg.CmdType = SC_MINIMIZE) or (Msg.CmdType = SC_MAXIMIZE) then
begin
// your code ............
showmessage('hello');
end;
DefaultHandler(Msg);
end;
是控件面板上additional上的一个组件