delphi 无边框最小化到任务栏上

delphi 无边框最小化到任务栏上

1. //下面可以使每个窗口都单独列在任务栏上   
2.   type   
3.       TForm1   =   class(TForm)   
4.           Button1:   TButton;   
5.           procedure   CreateParams(var   Params:TCreateParams);override;//重载   
6.           procedure   Button1Click(Sender:   TObject);   
7.       private   
8.           {   Private   declarations   }   
9.       public   
10.           {   Public   declarations   }   
11.       end;   
12.     
13.   implementation   
14.     
15.   {$R   *.dfm}   
16.   procedure   TForm1.CreateParams(var   Params:   TCreateParams);   
17.   begin   
18.       inherited;   
19.       Params.ExStyle:=params.ExStyle   or     WS_EX_APPWINDOW;   
20.   end;