以下程式可以將Form1的底色便成透空, 請拉一From1/Panel1/Button1/Button2 設定From1的OnCreate/OnDestory/OnReSize事件 設定Button1/Button2的OnClick事件 執行後按Button1可以透空,再按一次還原喔! 可以做為程式特殊效果運用!

unit Unit1;    interface    uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ExtCtrls;    type
  TForm1 = class(TForm)
    Panel1: TPanel;
    Button1: TButton;
    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;
  FullRgn := CreateRectRgn(0, 0, Width, Height);
  X := Margin;
  Y := Height - ClientHeight - Margin;
  ClientRgn := CreateRectRgn(X, Y, X   ClientWidth, Y   ClientHeight);
  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;    procedure TForm1.FormDestroy(Sender: TObject);
begin
  DeleteObject(ClientRgn);
  DeleteObject(FullRgn);
  DeleteObject(CtlRgn);
end;    procedure TForm1.DoVisible;
begin
  FullRgn := CreateRectRgn(0, 0, Width, Height);
  CombineRgn(FullRgn, FullRgn, FullRgn, RGN_COPY);
  SetWindowRgn(Handle, FullRgn, TRUE);
end;    procedure TForm1.FormCreate(Sender: TObject);
begin
  DoInvisible;
end;    procedure TForm1.Button1Click(Sender: TObject);
begin
  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
  if Button1.Caption = 'Show Form' then
    DoInvisible
  else
    DoVisible;
end;    end.

～～～Delphi K.Top討論區站長～～～

------
～～～Delphi K.Top討論區站長～～～

附加檔案：00018906_unit1.pas