tqpzxy老先生您好:     誰說元件不能變透明,請查證後再說,別信口開河...只不過一般都是元件跟著Form變成了透明了..< >    我來耍寶的...您別生氣喔...< >...< >...< >    方法一:    void __fastcall TForm1::FormCreate(TObject *Sender)
{
 SetWindowLong(Handle, GWL_EXSTYLE, GetWindowLong(Handle, GWL_EXSTYLE) | WS_EX_LAYERED);     SetLayeredWindowAttributes(Handle,Canvas->Pixels[0][0], 100, LWA_ALPHA | LWA_COLORKEY);    }
//---------------------------------------------------------------------------    方法二：    以下的範例放了三個元件(TTrackBar/TButton/TImage)
    Unit1.H
//---------------------------------------------------------------------------    #ifndef Unit1H
#define Unit1H
//---------------------------------------------------------------------------
#include 
#include 
#include 
#include <Forms.hpp>
#include 
#include 
#include 
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published:        // IDE-managed Components
        TTrackBar *TrackBar1;
        TButton *Button1;
        TImage *Image1;
        void __fastcall TrackBar1Change(TObject *Sender);
        void __fastcall FormCreate(TObject *Sender);
private:        // User declarations
               int alpha;
               void __fastcall SetAlpha(int alph);    public:                // User declarations
        __fastcall TForm1(TComponent* Owner);
        __property int Alpha = {read=alpha,write=SetAlpha};    };
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif    Unit1.CPP
//---------------------------------------------------------------------------    #include 
#pragma hdrstop    #include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
  SetWindowLong(Handle,GWL_EXSTYLE,  //make our form a layered window
  GetWindowLong(Handle,GWL_EXSTYLE)|WS_EX_LAYERED);
  Alpha = 255;  //make sure our form starts out opaque    }
//---------------------------------------------------------------------------    void __fastcall TForm1::TrackBar1Change(TObject *Sender)
{
  Alpha = TrackBar1->Position;  //set the transparency according to the slider
}
//---------------------------------------------------------------------------
void __fastcall TForm1::SetAlpha(int alph)
{
  alpha = alph;
  SetLayeredWindowAttributes(Handle,NULL,alpha,LWA_ALPHA);
  //set the alpha level of our form
}
void __fastcall TForm1::FormCreate(TObject *Sender)
{
  TrackBar1->Max=255;
  TrackBar1->Min=0;
  TrackBar1->Position=128;
}
//---------------------------------------------------------------------------

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