這是我在網路深度論壇上學到一些技巧，並且把這些技巧 寫成一個範例！ http://myweb.hinet.net/home5/liangnet/Form.rar

Source Code如下:

Unit1.cpp    /---------------------------------------------------------------------------    #include 
#pragma hdrstop    #include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------    void __fastcall TForm1::Button1Click(TObject *Sender)
{
Form1->Close();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Label1MouseDown(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
if( Button == mbLeft)
{
        long lStyle;
        lStyle=GetWindowLong(Handle, GWL_EXSTYLE );
        lStyle |= 0x00080000;
        SetWindowLong(Handle, GWL_EXSTYLE, lStyle );            // 設定半透明, 參數3: 0=全透明 , 255為不透明
        for (int i = 255 ; i >= 105; i-=4)
        {
                SetLayeredWindowAttributes(Handle, RGB(255,0,255), i,3); //現在設為 150，即半透明狀態
        }            ReleaseCapture();
        Perform( WM_SYSCOMMAND, 0xf012, 0 );
        Application->ProcessMessages();            for (int i = 55 ; i <= 255; i =10)
        {
                SetLayeredWindowAttributes(Handle, RGB(255,0,255), i,3); //現在設為 150，即半透明狀態
        }
}    }
//---------------------------------------------------------------------------    Unit1.H    //---------------------------------------------------------------------------    #ifndef Unit1H
#define Unit1H
//---------------------------------------------------------------------------
#include 
#include 
#include 
#include <Forms.hpp>
#include 
#include 
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published:        // IDE-managed Components
        TImage *Image1;
        TButton *Button1;
        TLabel *Label1;
        TLabel *Label2;
        TEdit *Edit1;
        void __fastcall Button1Click(TObject *Sender);
        void __fastcall Label1MouseDown(TObject *Sender,
          TMouseButton Button, TShiftState Shift, int X, int Y);
private:        // User declarations
public:                // User declarations
        __fastcall TForm1(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif

/*生活是一種藝術,用心生活才能享受生活*/

這是我以前所寫的程式 就算補充嘍...^^ Baby

引言: 這是我以前所寫的程式 就算補充嘍...^^ Baby

真的啊，這個範例程式是在論壇裡看到的技巧，我把透半透明的及不規則form和無標題form拖曳整理在一起。

liangnet 你好 你的程式無法正常的編譯 好像少了檔案?? axsoft你好 雖然你的程式碼可以設成透明但是一但透明化 Form上面的物件也跟著透明化了是否有方法可以讓Parent透明化但是上面的物件不呈現透明~~?? Thanks

您好： 參照我最新發表的作品 即可達到您的需求 只使某一個元件半透明，而其他不變。 http://delphi.ktop.com.tw/topic.php?TOPIC_ID=81992 這個過程實現有點複雜 但是我已經將他包裝成一個函示庫 你可以直接呼叫使用！ 如果可以的話請給分唷~

------
人生就像泡泡一樣，乘著風被吹著跑，等你發現時已經消失了。
就在快要消失的瞬間，希望能再飛高一點，
但是回神時總是慢了一步。