delphi 實作可移動異形窗體（附項目檔案）

效果如下：

實作方法：

建立一個Delphi工程，在窗體上放置一個image（圖象）元件.

用IMAGE控件導入一張圖檔（圖案為異形的輪廓）

将窗體的transparentcolor (顔色透明)設定為true(真)，

Transparent colorvalue 的屬性設定為圖檔底色（可用colorSchemer Studio 取底色RGB）

procedure TForm1.FormCreate(Sender: TObject);

begin

Form1.TransparentColor:=true;

Form1.TransparentColorValue:=rgb(240,240,240);

end;

另外

設定

(1)來隐藏 标題欄

将form的borderStyle設定為 bsNone

(2)為圖檔設定滑鼠按下事件 來讓程式可以移動

procedure TForm1.Image1MouseDown(Sender:TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

ReleaseCapture; //窗體任意拖動

PostMessage(Self.Handle,WM_SYSCOMMAND,SC_MOVE+1,0);

————————————————

版權聲明：本文為CSDN部落客「明明如月學長」的原創文章，遵循CC 4.0 BY-SA版權協定，轉載請附上原文出處連結及本聲明。

原文連結：

https://blog.csdn.net/w605283073/article/details/49050213