如何才能让主窗体最小化时，子窗体不最小化
1个回答
展开全部
private
{ Private declarations }
procedure WMSysCommand(var Message: TWMSysCommand); message WM_SYSCOMMAND;
public
//...
procedure TForm1.WMSysCommand(var Message: TWMSysCommand);
begin
with Message do
begin
if CmdType and $FFF0 = SC_MINIMIZE then
ShowWindow(Handle, SW_MINIMIZE)
else inherited;
end;
end;
{ Private declarations }
procedure WMSysCommand(var Message: TWMSysCommand); message WM_SYSCOMMAND;
public
//...
procedure TForm1.WMSysCommand(var Message: TWMSysCommand);
begin
with Message do
begin
if CmdType and $FFF0 = SC_MINIMIZE then
ShowWindow(Handle, SW_MINIMIZE)
else inherited;
end;
end;
本回答由网友推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
