我 想 做 一 個 透 明 的 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...查看完整版>>
很酷的透明窗體