Delphi制作的鏡框效果

Delphi制作的鏡框效果，可選擇多種不同的顏色相框，類似於窗口的換膚功能。在相框上點擊右鍵，可選擇圖片等。示例效果圖所示：

vIEw source print? 01 unit Unit1; 02 interface 03 uses 04   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 05   Dialogs, StdCtrls, ExtCtrls, jpeg, Menus, ExtDlgs,INIFILES; 06 type 07   TForm1 = class(TForm) 08     PopupMenu1: TPopupMenu; 09     N1: TMenuItem; 10     Panel1: TPanel; 11     Image1: TImage; 12     Label1: TLabel; 13     Label2: TLabel; 14     N2: TMenuItem; 15     N3: TMenuItem; 16     N4: TMenuItem; 17     N5: TMenuItem; 18     N6: TMenuItem; 19     N7: TMenuItem; 20     OpenPictureDialog1: TOpenPictureDialog; 21     procedure N1Click(Sender: TObject); 22     procedure N2Click(Sender: TObject); 23     procedure FormCreate(Sender: TObject); 24     procedure N4Click(Sender: TObject); 25     procedure N5Click(Sender: TObject); 26     procedure N6Click(Sender: TObject); 27   private 28  procedure WMNCHitTest(var Msg:TWMNCHitTest);message WM_NCHITTEST; 29   public 30     { Public declarations } 31   end; 32 var 33   Form1: TForm1; 34   theme:TInifile; 35   themename,form_color,panel_color,Label_color:string; 36 implementation 37 {$R *.dfm} 38 procedure TForm1.WMNCHitTest(var Msg:TWMNCHitTest); 39 begin 40 DefaultHandler(Msg); 41 if Msg.Result = HTCLIENT then 42 Msg.Result:= HTCAPTION; 43 end; 44 procedure TForm1.N1Click(Sender: TObject); 45 begin 46 Close;//退出程序 47 end; 48 procedure TForm1.N2Click(Sender: TObject); 49 begin 50 If OpenPictureDialog1.Execute Then 51  Image1.Picture.LoadFromFile(OpenPictureDialog1.FileName); //載入圖象文件 52 end; 53 procedure TForm1.FormCreate(Sender: TObject); 54 begin 55 Theme:=TIniFile.Create('themes.ini'); 56 end; 57 procedure TForm1.N4Click(Sender: TObject); 58 begin 59 Label2.Caption:=theme.ReadString('theme1','name','濃烈型'); 60 Form1.Color:=StringToColor(theme.ReadString('theme1',form_color,'clPurple')); 61 panel1.Color:=StringToColor(theme.ReadString('theme1',panel_color,'clMaroon')); 62 Label2.Font.Color:=StringToColor(theme.ReadString('theme1',Label_color,'clwhite')); 63 end; 64 procedure TForm1.N5Click(Sender: TObject); 65 begin 66 Label2.Caption:=theme.ReadString('theme1','name','清新型'); 67 Form1.Color:=StringToColor(theme.ReadString('theme1',form_color,'$00EC83F1')); 68 panel1.Color:=StringToColor(theme.ReadString('theme1',panel_color,'$00F365BA')); 69 Label2.Font.Color:=StringToColor(theme.ReadString('theme1',Label_color,'clBlue')); 70 end; 71 procedure TForm1.N6Click(Sender: TObject); 72 begin 73 Label2.Caption:=theme.ReadString('theme1','name','古樸型'); 74 Form1.Color:=StringToColor(theme.ReadString('theme1',form_color,'clBackground')); 75 panel1.Color:=StringToColor(theme.ReadString('theme1',panel_color,'clblack')); 76 Label2.Font.Color:=StringToColor(theme.ReadString('theme1',Label_color,'clwhite')); 77 end; 78 end.