unit2.pas

来自「新颖按钮控件」· PAS 代码 · 共 78 行

unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  BRndPanel, EfRndBtn, StdCtrls, ShLabel, ShBtn, BitLabel, EfTransRndBtn;

type
  TAboutForm = class(TForm)
    BRndPanel1: TBRndPanel;
    Memo1: TMemo;
    Label1: TLabel;
    Label2: TLabel;
    BitLabel1: TBitLabel;
    EfTransRndBtn1: TEfTransRndBtn;
    btnHome: TEfTransRndBtn;
    btnEMail: TEfTransRndBtn;
    Label3: TLabel;
    Label4: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure EfRndBtn1Click(Sender: TObject);
    procedure ShBtn1Click(Sender: TObject);
    procedure EfTransRndBtn1Click(Sender: TObject);
    procedure btnHomeClick(Sender: TObject);
    procedure btnEMailClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  AboutForm: TAboutForm;

implementation

{$R *.DFM}

uses ShellAPI;

procedure TAboutForm.FormCreate(Sender: TObject);
var
  Rgn: HRGN;
begin
  Rgn := CreateRoundRectRgn(0,0,Width,Height,100,100);
  SetWindowRgn(AboutForm.Handle,Rgn,True);
end;

procedure TAboutForm.EfRndBtn1Click(Sender: TObject);
begin
  Close;
end;

procedure TAboutForm.ShBtn1Click(Sender: TObject);
begin
  Close;
end;

procedure TAboutForm.EfTransRndBtn1Click(Sender: TObject);
begin
  Close;
end;

procedure TAboutForm.btnHomeClick(Sender: TObject);
begin
  // Home Page
  ShellExecute(0, 'open', 'http://www.evgesoft.com/dev/', nil, nil, SW_SHOWNORMAL);
end;

procedure TAboutForm.btnEMailClick(Sender: TObject);
begin
  // EMail
  ShellExecute(0, 'open', 'mailto:[e-mail]', nil, nil, SW_SHOWNORMAL);
end;

end.