Source Code: http://delphi.ktop.com.tw/topic.php?TOPIC_ID=21523 在Win2K和WinXP (Win.Net應該也有....猜測中) User32.dll 有一個特別的function:SetLayeredWindowAttributes 可以設定將你的Form變成透明一點唷...就像FlashGet的Icon 滿好玩的, 你也可以作成VCL, 這樣也很方便

哈哈~~太好玩了 感謝版主的分享

------
-- 若您已經得到滿意的答覆，請適時結案!! --
-- 欲知前世因，今生受者是；欲知來世果，今生做者是 --
-- 一切有為法，如夢幻泡影，如露亦如電，應作如是觀 --

API函數SetLayeredWindowAttributes，它有4個參數，分別是hwnd、crKey、bAlpha和dwFlags。hwnd指操作的窗口的句柄，crKey是指定要透明的顏色值，是和第四個參數配合使用的（當第四個參數為LWA_COLORKEY），bAlpha是透明參數，當bAlpha為0時窗口全透明，當值為255時為正常的窗口。比如要Form1透明的話，相應的語句是SetLayeredWindowAttributes(form1.Handle, 0, 100, LWA_ALPHA)，不過這個API只能在Win2000下用，不支援Win98。

那再請問各位先進 要如何使用這個function:SetLayeredWindowAttributes呢 是否要先USE 那個Unit

插花一下 Delphi 6 的Form 就有AlphaBlend 與 AlphaBlendValue 二個屬性可調整Alpha值，使Form 呈現半透明或透明的效果。追蹤其屬性，得知此屬性包裝了Win API的方法，就是lcsboy 兄所提的部份    小小範例：

procedure TForm1.FormCreate(Sender: TObject);
begin
    self.AlphaBlend :=True;
    with ScrollBar1 do
    begin
        Max:=255;
        Min:=0;
        Position :=255;
    end;
end;    procedure TForm1.ScrollBar1Change(Sender: TObject);
begin
    self.AlphaBlendValue :=ScrollBar1.Position ;
end;

追蹤AlphaBlendValue 屬性結果

procedure TCustomForm.SetLayeredAttribs;
const
  cUseAlpha: array [Boolean] of Integer = (0, LWA_ALPHA);
  cUseColorKey: array [Boolean] of Integer = (0, LWA_COLORKEY);
var
  AStyle: Integer;
begin
  if not (csDesigning in ComponentState) and
    (Assigned(SetLayeredWindowAttributes)) and HandleAllocated then
  begin
    AStyle := GetWindowLong(Handle, GWL_EXSTYLE);
    if FAlphaBlend or FTransparentColor then
    begin
      if (AStyle and WS_EX_LAYERED) = 0 then
        SetWindowLong(Handle, GWL_EXSTYLE, AStyle or WS_EX_LAYERED);
      SetLayeredWindowAttributes(Handle, FTransparentColorValue, FAlphaBlendValue,
        cUseAlpha[FAlphaBlend] or cUseColorKey[FTransparentColor]);
    end
    else
    begin
      SetWindowLong(Handle, GWL_EXSTYLE, AStyle and not WS_EX_LAYERED);
      RedrawWindow(Handle, nil, 0, RDW_ERASE or RDW_INVALIDATE or RDW_FRAME or RDW_ALLCHILDREN);
    end;
  end;
end;    

BCB 6的Form 我想應該也是有此屬性才是 ps:小弟我從Delphi 6 開始入門，至於之前版本的BCB 或是Delphi 若無此屬性，就參考lcsboy 版主的範例實現吧 --【

對不起,各位大大~ 想請問一下,如果要在NT和Delphi5上逹到此功能~ 有沒有別種方法呢~ SetLayeredWindowAttributes不支援NT~ 謝謝~