怎样修改下面的程序，使之能在窗口移动时也让form达到透明效果？

Question

抄来的
**************************
To make a form transparent you should put these 2 lines in form's creation procedure:procedure TForm1.FormCreate(Sender: TObject);
begin
 Form1.Brush.Style:=bsClear;
 Form1.BorderStyle:=bsNone;
end;If you use only that you will notice that the form is transparent but if you put something 
over it, it will not clear its own background and traces of that object will be left on the 
form. To solve that you need to make sure that the transparent form's Paint procedure (WM_PAINT)
will be called last. To do that you need to override the TWinControl (TForm's ancestor) 
CreateParams procedure and set the Form's extended style (ExStyle) to WS_EX_TRANSPARENT.Here's the full code for making a form transparent:type
 TForm1 = class(TForm)
   procedure CreateParams(var Params:TCreateParams); override;
   procedure FormCreate(Sender: TObject);
 private
   { Private declarations }
 public
   { Public declarations }
 end;var
 Form1: TForm1;implementation{$R *.DFM}procedure TForm1.CreateParams(var Params:TCreateParams);
Begin
 inherited CreateParams(Params);
 Params.ExStyle:=WS_EX_TRANSPARENT;
End;procedure TForm1.FormCreate(Sender: TObject);
begin
 Form1.Brush.Style:=bsClear;
 Form1.BorderStyle:=bsNone;
end;

Answer 1

    With Self do
    begin
        Margin := ( Width - ClientWidth ) div 2;
        FullRgn := CreateRectRgn(0, 0, Width, Height);
        X := Margin;
        Y := Height - ClientHeight - Margin;
        ClientRgn := CreateRectRgn( X, Y, X + Width, Y + Height );
        CombineRgn( FullRgn, FullRgn, ClientRgn, RGN_DIFF );
        for A := 0 to ControlCount - 1 do
    begin
            AControl := Controls[A];
            if ( AControl is TWinControl ) or ( AControl is TGraphicControl ) then
                with AControl do
                begin
                    if Visible then
                    begin
                        CtlX := X + Left;
                        CtlY := Y + Top;
                        CtlRgn := CreateRectRgn( CtlX, CtlY, CtlX + Width, CtlY + Height );
                        CombineRgn( FullRgn, FullRgn, CtlRgn, RGN_OR );
                    end;
                end;
        end;
        SetWindowRgn(Handle, FullRgn, TRUE);
    end;

Answer 2

win2000提供了支持alphablending的api

Answer 3

 to vb_delphi(Iwantc):
     你可真绝呀！连标题栏都被你隐藏了，怎么移动呀？

Answer 4

不好意思！下面应该没问题：
unit Unit1; {The transparent form effect is done with Regions. 
 First create a region that encompasses the entire form. 
 Then, find the client area of the form (Client vs. non-Client) and 
 combine with the full region with RGN_DIFF to make the borders 
 and title bar visible.  Then create a region for each of the 
 controls and combine them with the original (FullRgn) region.} {From various posts in the newsgroups - based on some famous 
 author I'm sure, but I first saw the post by Kerstin Thaler...} interface uses 
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, 
  ExtCtrls, StdCtrls; type 
  TForm1 = class(TForm) 
    Button1: TButton; 
    Panel1: TPanel; 
    Button2: TButton; 
    procedure FormDestroy(Sender: TObject); 
    procedure FormCreate(Sender: TObject); 
    procedure Button1Click(Sender: TObject); 
    procedure Button2Click(Sender: TObject); 
    procedure FormResize(Sender: TObject); 
  private 
    { Private declarations } 
    procedure DoVisible; 
    procedure DoInvisible; 
  public 
    { Public declarations } 
  end; var 
  Form1: TForm1; 
  FullRgn, ClientRgn, CtlRgn : THandle; implementation {$R *.DFM} procedure TForm1.DoInvisible; 
var 
  AControl : TControl; 
  A, Margin, X, Y, CtlX, CtlY : Integer; 
begin 
  Margin := ( Width - ClientWidth ) div 2; 
  //First, get form region 
  FullRgn := CreateRectRgn(0, 0, Width, Height); 
  //Find client area region 
  X := Margin; 
  Y := Height - ClientHeight - Margin; 
  ClientRgn := CreateRectRgn( X, Y, X + ClientWidth, Y + ClientHeight ); 
  //'Mask' out all but non-client areas 
  CombineRgn( FullRgn, FullRgn, ClientRgn, RGN_DIFF );   //Now, walk through all the controls on the form and 'OR' them 
  // into the existing Full region. 
  for A := 0 to ControlCount - 1 do begin 
    AControl := Controls[A]; 
    if ( AControl is TWinControl ) or ( AControl is TGraphicControl ) 
        then with AControl do begin 
      if Visible then begin 
        CtlX := X + Left; 
        CtlY := Y + Top; 
        CtlRgn := CreateRectRgn( CtlX, CtlY, CtlX + Width, CtlY + Height ); 
        CombineRgn( FullRgn, FullRgn, CtlRgn, RGN_OR ); 
      end; 
    end; 
  end; 
  //When the region is all ready, put it into effect: 
  SetWindowRgn(Handle, FullRgn, TRUE); 
end; procedure TForm1.FormDestroy(Sender: TObject); 
begin 
  //Clean up the regions we created 
  DeleteObject(ClientRgn); 
  DeleteObject(FullRgn); 
  DeleteObject(CtlRgn); 
end; procedure TForm1.DoVisible; 
begin 
  //To restore complete visibility: 
  FullRgn := CreateRectRgn(0, 0, Width, Height); 
  CombineRgn(FullRgn, FullRgn, FullRgn, RGN_COPY); 
  SetWindowRgn(Handle, FullRgn, TRUE); 
end; procedure TForm1.FormCreate(Sender: TObject); 
begin 
  //We start out as a transparent form.... 
  DoInvisible; 
end; procedure TForm1.Button1Click(Sender: TObject); 
begin 
  //This button just toggles between transparent and not trans.. 
  if Button1.Caption = 'Show Form' then begin 
    DoVisible; 
    Button1.Caption := 'Hide Form'; 
  end 
  else begin 
    DoInvisible; 
    Button1.Caption := 'Show Form'; 
  end; 
end; procedure TForm1.Button2Click(Sender: TObject); 
begin 
  Application.Terminate; 
end; procedure TForm1.FormResize(Sender: TObject); 
begin 
  //Need to address the transparency if the form gets re-sized. 
  //Also, note that Form1 scroll bars are set to VISIBLE/FALSE. 
  //I did that to save a little coding here.... 
  if Button1.Caption = 'Show Form' then 
    DoInvisible 
  else 
    DoVisible; 
end; end. 

Answer 5

  to TechnoFantasy(www.applevb.com):高手，搞定！
      var margin,x,y,a,ctlx,ctly:integer;
          fullrgn,clientrgn,ctlrgn:hrgn;
          acontrol:tcontrol;
     

Answer 6

to vb_delphi(Iwantc):
   这下对了！

Answer 7

  要是在透明窗口中加一个lable,怎样使lable背景透明？答出来了另行加分！  

Answer 8

label有透明属性
但是它总被上面窗体覆盖