在所谓的子窗体中的输入：
Procedure CreateParams(Var Params: TCreateParams); Override;
例如：
private
{ Private declarations }
Procedure CreateParams(Var Params: TCreateParams); Override;
end;
接下来在子窗体中输入：
Procedure TForm.CreateParams(Var Params: TCreateParams);
Begin
Inherited CreateParams(Params);
With Params Do exStyle := exStyle Or WS_EX_APPWINDOW;
end;
你会发现，每创建一个窗体，任务栏就会多出一个图标，并可以做出相应切换。
若将主窗体最小化，所有的按钮又会消失，反之又会出现。
