uaboutf.pas

一套功能非常丰富的图书管理系统

unit uAboutF;

interface

uses 
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls,ShellAPI, ExtCtrls, jpeg;

type
  TAboutF = class(TFrame)
    Button1: TButton;
    Panel1: TPanel;
    StaticText1: TStaticText;
    Shape1: TShape;
    Shape2: TShape;
    StaticText2: TStaticText;
    StaticText3: TStaticText;
    StaticText4: TStaticText;
    StaticText5: TStaticText;
    Shape3: TShape;
    StaticText6: TStaticText;
    procedure StaticText5Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  AboutF : TAboutF;

implementation 

uses uMainF;

{$R *.DFM}

procedure TAboutF.StaticText5Click(Sender: TObject);
begin
  ShellExecute(Handle,nil,PChar('mailto:[e-mail]'),nil,nil,SW_NORMAL);
end;

procedure TAboutF.Button1Click(Sender: TObject);
begin
  Parent := nil;
  MainF.Caption := '图书管理系统';
end;

end.