关于窗体最小化！请进！

[eastxiang]

A， B 两个窗体；
A 中调用 B，即 B.show；

如何将B最小化到 任务栏， 类似于foxmail 的收发邮件窗体

[jackie168]

在类声明中重载CreateParams：
procedure CreateParams(var Params: TCreateParams); override;
然后：
procedure TfrmChild.CreateParams(var Params: TCreateParams);
begin
inherited CreateParams(Params);
Params.ExStyle:= Params.ExStyle or WS_EX_APPWINDOW;
end;
================================================================
//<2>或是可以这样：
SetWindowLong(form.Handle,GWL_EXSTYLE,GetWindowLong(form.Handle,GWL_EXSTYLE) or WS_EX_APPWINDOW);