Delphi控件源码

开发平台：

Delphi

frmAbouts.pas：源码内容

							            unit frmabouts;
interface
uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls,
  Buttons, ExtCtrls, XPMenu, jpeg, Shellapi, TFlatButtonUnit,
  TFlatPanelUnit;
type
  TfrmAbout = class(TForm)
    FlatButton1: TFlatButton;
    FlatPanel1: TFlatPanel;
    ProductName: TLabel;
    Version: TLabel;
    Copyright: TLabel;
    lblemail: TLabel;
    Image1: TImage;
    procedure lblemailClick(Sender: TObject);
    procedure lblemailMouseEnter(Sender: TObject);
    procedure lblemailMouseLeave(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure FlatButton1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  frmAbout: TfrmAbout;
implementation
{$R *.dfm}
procedure TfrmAbout.lblemailClick(Sender: TObject);
begin
  ShellExecute(self.Handle, nil, 'www.elang.coa.net', nil, nil, sw_ShowNormal);
end;
procedure TfrmAbout.lblemailMouseEnter(Sender: TObject);
begin
  lblemail.Font.Color := clBlue;
end;
procedure TfrmAbout.lblemailMouseLeave(Sender: TObject);
begin
  lblemail.Font.Color := clWindowText;
end;
procedure TfrmAbout.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  AnimateWindow(self.Handle, 1800, AW_HIDE + AW_CENTER + AW_BLEND);
end;
procedure TfrmAbout.FlatButton1Click(Sender: TObject);
begin
  close();
end;
end.

						