pub_frm_pas.pas

不错啊

unit pub_frm_pas;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ImgList, ComCtrls, ToolWin, ExtCtrls, StdCtrls;

type
  Tpub_frm = class(TForm)
    main_p: TPanel;
    CoolBar1: TCoolBar;
    ToolBar1: TToolBar;
    ToolButton1: TToolButton;
    ImageList1: TImageList;
    Panel1: TPanel;
    Panel2: TPanel;
    te_aaaaaaaaaaaaaaa: TEdit;
    procedure ToolButton1Click(Sender: TObject);
    procedure FormKeyUp(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure FormCreate(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  pub_frm: Tpub_frm;

implementation
  uses main_dm_pas;
{$R *.dfm}

procedure Tpub_frm.ToolButton1Click(Sender: TObject);
begin
  close;
end;

procedure Tpub_frm.FormKeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key=VK_ESCAPE then
    close;
end;

procedure Tpub_frm.FormCreate(Sender: TObject);
var
  i:integer;
begin
  for i:=0 to self.ComponentCount -1 do
    if self.Components[i] is Tedit then
      (self.Components[i] as Tedit).clear;  
end;

procedure Tpub_frm.FormActivate(Sender: TObject);
var
  i:integer;
begin
  for i:=0 to 15 do
  begin
    self.AlphaBlendValue :=i*17;
  end;
  self.AlphaBlend :=false;
  self.Refresh;
end;

procedure Tpub_frm.FormClose(Sender: TObject; var Action: TCloseAction);
var
  i:integer;
begin
  self.AlphaBlend :=true;
  for i:=0 to 15 do
  begin
    self.AlphaBlendValue :=255-i*17;
  end;
end;

end.