根据位图做出漂亮的不规则FORM

Author：傻猫
发布时间：February 8, 2007
4000views
No comments
3286 words
Categories：搞软件

unit&nbsp;Unit1;&nbsp; interface&nbsp; uses&nbsp; 　Windows,&nbsp;Messages,&nbsp;SysUtils,&nbsp;Classes,&nbsp;Graphics,&nbsp;Controls,&nbsp;Forms,&nbsp;Dialogs,&nbsp; 　ExtCtrls,&nbsp;StdCtrls,&nbsp;Buttons;&nbsp; type&nbsp; 　TForm1&nbsp;=&nbsp;class(TForm)&nbsp; 　Image1:&nbsp;TImage;&nbsp; 　Button1:&nbsp;TButton;&nbsp; 　procedure&nbsp;FormCreate(Sender:&nbsp;TObject);&nbsp; 　procedure&nbsp;Button1Click(Sender:&nbsp;TObject);&nbsp; 　procedure&nbsp;Image1MouseDown(Sender:&nbsp;TObject;&nbsp;Button:&nbsp;TMouseButton;&nbsp; 　Shift:&nbsp;TShiftState;&nbsp;X,&nbsp;Y:&nbsp;Integer);&nbsp; 　private&nbsp; 　　function&nbsp;CreateRegion(wMask:&nbsp;TBitmap;&nbsp;wColor:&nbsp;TColor;hControl:&nbsp;THandle):&nbsp;HRGN;&nbsp; 　　{&nbsp;Private&nbsp;declarations&nbsp;}&nbsp; 　public&nbsp; 　　{&nbsp;Public&nbsp;declarations&nbsp;}&nbsp; end;&nbsp; var&nbsp; 　Form1:&nbsp;TForm1;&nbsp; implementation&nbsp; {$R&nbsp;*.DFM}&nbsp; function&nbsp;Tform1.CreateRegion(wMask:TBitmap;wColor:TColor;hControl:THandle):&nbsp;HRGN;&nbsp; var&nbsp; 　dc,&nbsp;dc_c:&nbsp;HDC;&nbsp; 　rgn:&nbsp;HRGN;&nbsp; 　x,&nbsp;y:&nbsp;integer;&nbsp; 　coord:&nbsp;TPoint;&nbsp; 　line:&nbsp;boolean;&nbsp; 　color:&nbsp;TColor;&nbsp; begin&nbsp; 　dc&nbsp;:=&nbsp;GetWindowDC(hControl);&nbsp; 　dc_c&nbsp;:=&nbsp;CreateCompatibleDC(dc);&nbsp; 　SelectObject(dc_c,&nbsp;wMask.Handle);&nbsp; 　BeginPath(dc);&nbsp; 　for&nbsp;x:=0&nbsp;to&nbsp;wMask.Width-1&nbsp;do&nbsp; 　begin&nbsp; 　　line&nbsp;:=&nbsp;false;&nbsp; 　　for&nbsp;y:=0&nbsp;to&nbsp;wMask.Height-1&nbsp;do&nbsp; 　　begin&nbsp; 　　　color&nbsp;:=&nbsp;GetPixel(dc_c,&nbsp;x,&nbsp;y);&nbsp; 　　　if&nbsp;not&nbsp;(color&nbsp;=&nbsp;wColor)&nbsp;then&nbsp; 　　　begin&nbsp; 　　　　if&nbsp;not&nbsp;line&nbsp;then&nbsp; 　　　　begin&nbsp; 　　　　　line&nbsp;:=&nbsp;true;&nbsp; 　　　　　coord.x&nbsp;:=&nbsp;x;&nbsp; 　　　　　coord.y&nbsp;:=&nbsp;y;&nbsp; 　　　　end;&nbsp; 　　　end;&nbsp; 　　　if&nbsp;(color&nbsp;=&nbsp;wColor)&nbsp;or&nbsp;(y=wMask.Height-1)&nbsp;then&nbsp; 　　　begin&nbsp; 　　　　if&nbsp;line&nbsp;then&nbsp; 　　　　begin&nbsp; 　　　　　line&nbsp;:=&nbsp;false;&nbsp; 　　　　　MoveToEx(dc,&nbsp;coord.x,&nbsp;coord.y,&nbsp;nil);&nbsp; 　　　　　LineTo(dc,&nbsp;coord.x,&nbsp;y);&nbsp; 　　　　　LineTo(dc,&nbsp;coord.x&nbsp;+&nbsp;1,&nbsp;y);&nbsp; 　　　　　LineTo(dc,&nbsp;coord.x&nbsp;+&nbsp;1,&nbsp;coord.y);&nbsp; 　　　　　CloseFigure(dc);&nbsp; 　　　　end;&nbsp; 　　　end;&nbsp; 　　end;&nbsp; 　end; 　EndPath(dc);&nbsp; 　rgn&nbsp;:=&nbsp;PathToRegion(dc);&nbsp; 　ReleaseDC(hControl,&nbsp;dc);&nbsp; 　Result&nbsp;:=&nbsp;rgn;&nbsp; end;&nbsp; procedure&nbsp;TForm1.FormCreate(Sender:&nbsp;TObject);&nbsp; var&nbsp; 　w1:TBitmap;&nbsp; 　w2:TColor;&nbsp; 　rgn:&nbsp;HRGN;&nbsp; begin&nbsp; 　w1:=TBitmap.Create;&nbsp; 　w1.Assign(image1.Picture.Bitmap);&nbsp; 　w2:=w1.Canvas.Pixels[0,0];&nbsp; 　rgn&nbsp;:=&nbsp;CreateRegion(w1,w2,Handle);&nbsp; 　if&nbsp;rgn&lt;&gt;0&nbsp;then&nbsp; 　begin&nbsp; 　　SetWindowRgn(Handle,&nbsp;rgn,&nbsp;true);&nbsp; 　end;&nbsp; 　w1.Free;&nbsp; end;&nbsp; procedure&nbsp;TForm1.Button1Click(Sender:&nbsp;TObject);&nbsp; begin&nbsp; 　Close;&nbsp; end;&nbsp; procedure&nbsp;TForm1.Image1MouseDown(Sender:&nbsp;TObject;&nbsp;Button:&nbsp;TMouseButton;&nbsp; Shift:&nbsp;TShiftState;&nbsp;X,&nbsp;Y:&nbsp;Integer);&nbsp; begin&nbsp; 　ReleaseCapture;&nbsp; 　SendMessage(Handle,&nbsp;WM_SYSCOMMAND,&nbsp;$F012,&nbsp;0);&nbsp; end;&nbsp; end.&nbsp; 文章作者：mantousoft 文章来源：2ccc.com 作者邮箱：root@2ccc.com