半透明的delphi窗口 還可禁止最大化最小化

半透明的Delphi窗口 還可禁止最大化最小化

vIEw source print? 01 unit Unit1; 02 interface 03 uses 04   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 05   Dialogs, StdCtrls, jpeg, ExtCtrls, TFlatButtonUnit; 06 type 07   TForm1 = class(TForm) 08     ButtonStayOnTop: TFlatButton; 09     ButtonNoMaximize: TFlatButton; 10     ButtonNoMinimize: TFlatButton; 11     ButtonLoadIcon: TFlatButton; 12     procedure ButtonStayOnTopClick(Sender: TObject); 13     procedure FormCreate(Sender: TObject); 14     procedure ButtonNoMaximizeClick(Sender: TObject); 15     procedure ButtonNoMinimizeClick(Sender: TObject); 16     procedure FormPaint(Sender: TObject); 17     procedure ButtonLoadIconClick(Sender: TObject); 18   private 19     { Private declarations } 20   public 21     { Public declarations } 22   end; 23 var 24   Form1: TForm1; 25 implementation 26 {$R *.dfm} 27 procedure TForm1.ButtonStayOnTopClick(Sender: TObject); 28 begin 29   if (ButtonStayOnTop.Caption='永遠居上') then 30     begin 31       FormStyle:=fsStayOnTop; 32       ButtonStayOnTop.Caption:='取消居上'; 33     end 34   else 35     begin 36       FormStyle:=fsNormal; 37       ButtonStayOnTop.Caption:='永遠居上'; 38     end; 39 end; 40 procedure TForm1.FormCreate(Sender: TObject); 41 begin 42    //設置窗體可以半透明顯示 43    AlphaBlend:=true; 44    //讓窗體最開始完全透明 45    AlphaBlendValue:=0; 46 end; 47 procedure TForm1.ButtonNoMaximizeClick(Sender: TObject); 48 begin 49   // 使最大化按鈕失效 50   BorderIcons := BorderIcons - [biMaximize]; 51 end; 52 procedure TForm1.ButtonNoMinimizeClick(Sender: TObject); 53 begin 54   // 使最大化按鈕失效 55   BorderIcons := BorderIcons - [biMinimize]; 56 end; 57 procedure TForm1.FormPaint(Sender: TObject); 58 var 59   i:Byte; 60 begin 61    for i:=0 to 150 do 62      begin 63        //增加AlphaBlendValue，知道窗體不透明 64        AlphaBlendValue:=i; 65      end; 66 end; 67 procedure TForm1.ButtonLoadIconClick(Sender: TObject); 68 begin 69   if(FileExists('f:\My.ico')=false) then 70     //如果不存在該文件，警告並退出本過程 71     begin 72       ShowMessage('不存在文件f:\My.ico'); 73       //ShowMessageFmt(); 74       exit; //退出過程 75     end 76   else 77     //存在該文件則讀取改文件並改變窗體的圖標 78     Form1.Icon.LoadFromFile('f:\My.ico') ; 79 end; 80 end.