不随主窗口一起最小化

 

重载Createparams，改变窗体风格为<FONT color=#000000>WS_EX_APPWINDOW即可

 

Unit1.pas文件如下:

 

 

 

 

1. unit Unit1;
3. interface
5. uses
6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
7.   Dialogs, StdCtrls;
9. type
10.   TForm1 = class(TForm)
11.     Button1: TButton;
12.     procedure Button1Click(Sender: TObject);
13.     procedure FormCreate(Sender: TObject);
14.   private
15.     {   Private   declarations   }
16.     procedure WMSysCommand(var Msg: TWMSysCommand); message WM_SYSCOMMAND;
17.   public
18.     {   Public   declarations   }
19.     procedure CreateParams(var Params: TCreateParams); override;
20.   end;
22. var
23.   Form1: TForm1;
25. implementation
27. uses Unit2;
29. {$R   *.dfm}
31. procedure TForm1.Button1Click(Sender: TObject);
32. begin
33.   if not Assigned(Form2) then
34.     Form2 := TForm2.Create(nil);
35.   Form2.Show;
36. end;
38. procedure TForm1.CreateParams(var Params: TCreateParams);
39. begin
40.   inherited CreateParams(Params);
41.   Params.ExStyle := WS_EX_APPWINDOW;
42. end;
44. procedure TForm1.FormCreate(Sender: TObject);
45. begin
46.   SetWindowLong(Application.Handle, GWL_EXSTYLE,
47.     GetWindowLong(Application.Handle, GWL_EXSTYLE) or WS_EX_TOOLWINDOW);
48. end;
50. procedure TForm1.WMSysCommand(var Msg: TWMSysCommand);
51. begin
52.   if Msg.CmdType = SC_MINIMIZE then
53.   begin
54.     DefaultHandler(Msg);
55.     WindowState := wsMinimized;
56.   end
57.   else
58.     inherited;
59. end;
61. end.

Unit2.pas文件如下:

 

 

1. unit Unit2;
3. interface
5. uses
6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
7.   Dialogs, StdCtrls;
9. type
10.   TForm2 = class(TForm)
11.     Button1: TButton;
12.     procedure FormClose(Sender: TObject; var Action: TCloseAction);
13.     procedure FormDestroy(Sender: TObject);
14.   private
15.     {   Private   declarations   }
16.   public
17.     {   Public   declarations   }
18.     procedure CreateParams(var Params: TCreateParams); override;
19.   end;
21. var
22.   Form2: TForm2;
24. implementation
26. {$R  *.dfm}
28. procedure TForm2.CreateParams(var Params: TCreateParams);
29. begin
30.   inherited CreateParams(Params);
31.   Params.ExStyle := WS_EX_APPWINDOW;
32. end;
34. procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
35. begin
36.   Action := caFree;
37. end;
39. procedure TForm2.FormDestroy(Sender: TObject);
40. begin
41.   Form2 := nil;
42. end;
44. end.