Delphi中如何做透明的窗體

我 想 做 一 個 透 明 的 Form

不 是 用 一 個 bmp外 加 一 個 mask的 那 種 。 也 不 用 控 件 , 在 VB中 可 以

使 用 幾 個 參 數 即 可 , ( 可 在 這 裏 找 到 QA000129

「如何使窗口透明」) , 但 相 同 的 辦 法 用 在 delphi中 卻 不 行 。 請 問 如 何 做 一 個 這 樣 的 form? 簡

單 , 代 碼 少 , 不 用 控 件 。

Delphi中 可 以 這 樣 做 :

procedure TForm1.FormCreate(Sender: TObject);

begin Brush.Style:= bsClear;

BorderStyle := bsNone

end;

 
用DELPHI實現透明以及半透明窗體
在QQ中,我可以調節面板的透明度。如果我們自己編程,應該如何實現呢? (一)半透明窗體 在windows2000以及後續産品中下增加了一些API,可以輕易的實現半透明的窗體,源程序如下:interfaceuses Windows, Me...查看完整版>>用DELPHI實現透明以及半透明窗體
 
創建位圖型不規則窗體(可透明,可移動)
  //代碼來自互聯網, ccrun整理 :)在Form上添加一個OpenPictureDialog,添加一個Image,並爲其添加一個圖片。再加一個PopupMenu,並創建兩個菜單項,一個是Open1,一個是Exit1,其中前者是打開圖象文件對話框,後者...查看完整版>>創建位圖型不規則窗體(可透明,可移動)
 
制作透明窗體
  1.重載CreateParams函數,設置透明風格2.然後重載它的WM_ERASEBKGND消息。代碼片段:.h Fileclass TYourForm:public TForm{private: void __fastcall WMNC(TMessage &Message);public: __fast...查看完整版>>制作透明窗體
 
VC小技巧(11)-----窗體透明
//======================================= SetWindowLong(this->GetSafeHwnd(),GWL_EXSTYLE, GetWindowLong(this->GetSafeHwnd(),GWL_EXSTYLE)^0x80000); HINSTANCE hInst = LoadLibrary("User32.DLL&...查看完整版>>VC小技巧(11)-----窗體透明
 
很酷的透明窗體
一個Form1,圖片框一個PicShape,在圖片框內放置任何圖片時,系統將使用圖片框中的圖片爲窗體,並且屏蔽圖片中白色部分,從而建立特效的變形窗體。 Option Explicit Dim MoveTrue As Boolean, OldX As Long, OldY A...查看完整版>>很酷的透明窗體