主窗体添加以下过程
procedure TMainForm.WMSysCommand(var Msg: TWMSysCommand);
begin
if Msg.CmdType=SC_MINIMIZE then
begin
ShowWindow(Handle,SW_HIDE);
end
else inherited;
end;
本文介绍了一个简单的Delphi程序示例,展示了如何通过重写主窗体的WMSysCommand消息处理函数来实现窗口最小化时隐藏窗口的功能。这种方法避免了任务栏上出现多余的图标。
主窗体添加以下过程
procedure TMainForm.WMSysCommand(var Msg: TWMSysCommand);
begin
if Msg.CmdType=SC_MINIMIZE then
begin
ShowWindow(Handle,SW_HIDE);
end
else inherited;
end;
984

被折叠的 条评论
为什么被折叠?
