我想要在窗体最小化时触发另一程序?怎样判断窗体最小化? 我想要在窗体最小化时触发另一程序?怎样判断窗体最小化? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 老板,你分太少了,结贴的时候加点啊!拦截WM_SYSCOMMAND消息,消息中的wParam参数等于SC_MINIMIZE 表示最小化具体查看帮助 定义一个Procedure如下:Procedure MyMessage(var Msg: TWMSysCommand); message WM_SYSCOMMAND;---------------------------------------------------------------------------procedure TForm1.myMessage(var Msg: TWMSysCommand);begin if Msg.CmdType = SC_MINIMIZE then if Application.MessageBox('最小化窗口吗?','提示',Mb_YesNo)=Id_No then Exit; inherited;end;---------------------------------------------------------------------------不知道这是不是楼主要的结果. 问1个简单的问题,先到先得 祝大家新年快乐散分咯 delphi 中self.free 获取网页代码有比idHTTP1组件更好的吗? 求一SQL中的简单触发器..... StringList 中怎样把String 和object都销毁 怎样通过写程序来创建快捷方式? ADO中怎么重刷数据? ***** 50 分***** 一个挺容易的问题 InterBase6使用多个Trasaction的问题 高分简单问题,(分不是问题哦^^) ADOQuery更新多表連接的Query, 有沒有辦法只更新一個表﹐
拦截WM_SYSCOMMAND消息,消息中的wParam参数等于SC_MINIMIZE 表示最小化具体查看帮助
Procedure MyMessage(var Msg: TWMSysCommand); message WM_SYSCOMMAND;
---------------------------------------------------------------------------
procedure TForm1.myMessage(var Msg: TWMSysCommand);
begin
if Msg.CmdType = SC_MINIMIZE then
if Application.MessageBox('最小化窗口吗?','提示',Mb_YesNo)=Id_No then
Exit;
inherited;
end;
---------------------------------------------------------------------------
不知道这是不是楼主要的结果.