aboutform.pas

来自「这是用Delphi编写的车辆管理系统。主要功能有档案管理」· PAS 代码 · 共 74 行

unit AboutForm;

interface

uses
  shellapi,Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, Buttons;

type
  TAbout = class(TForm)
    Panel1: TPanel;
    Image1: TImage;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Image2: TImage;
    Panel2: TPanel;
    procedure Label3Click(Sender: TObject);
    procedure Label3MouseEnter(Sender: TObject);
    procedure Label3MouseLeave(Sender: TObject);
    procedure Panel2MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure Panel2MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure Panel2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  About: TAbout;

implementation

uses Unit1;

{$R *.dfm}

procedure TAbout.Label3Click(Sender: TObject);
begin
shellexecute(about.Handle,nil,'http://www.mingrisoft.com',nil,nil,sw_shownormal);
end;

procedure TAbout.Label3MouseEnter(Sender: TObject);
begin
label3.Font.Color:=clred;
end;

procedure TAbout.Label3MouseLeave(Sender: TObject);
begin
label3.Font.Color:=clSkyBlue;
end;

procedure TAbout.Panel2MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
(sender as TPanel).BevelInner:=bvlowered;
end;

procedure TAbout.Panel2MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
(sender as TPanel).BevelInner:=bvraised;
end;

procedure TAbout.Panel2Click(Sender: TObject);
begin
close;
end;

end.