xxxx=class(TForm)
.
.
private
procedure t(var k:TMessage);message wm_syscommand;.
.
end;procedure xxxx.t(var k:TMessage);
begin
if k.wParam=SC_MINIMIZE
then beign
//你的处理
end
else inherited;
end;
.
.
private
procedure t(var k:TMessage);message wm_syscommand;.
.
end;procedure xxxx.t(var k:TMessage);
begin
if k.wParam=SC_MINIMIZE
then beign
//你的处理
end
else inherited;
end;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货