行业应用

开发平台：

Delphi

SrmAbout.pas：源码内容

							//---------------------------------------------------------------------------
//(R)CopyRight KivenSoft International ,inc 1999
//单元名称：启动屏幕单元
//程序名称：电子书库
//作    者：李会文
//开始时间：1998.07.28
//最后修改：1999.07.22
//备注：此单元定义了SRM文件的读写接口
//---------------------------------------------------------------------------
unit SrmAbout;
interface                          
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ExtCtrls, ShellApi, Buttons, KvLabel;
type
  TAboutForm = class(TForm)
    Panel2:TPanel;
    Panel1:TPanel;
    ProgramIcon:TImage;             
    Image1:TImage;
    kivenMemo:TMemo;
    OkSpeedButton: TSpeedButton;
    FriendLabel: TKvLabel;
    HomePageLabel: TKvLabel;
    EMailLabel: TKvLabel;
    KvLabel1: TKvLabel;
    procedure ChineseInfo1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure EMailLabelClick(Sender: TObject);
    procedure HomePageLabelClick(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure OkSpeedButtonClick(Sender: TObject);
    procedure FriendLabelClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure KvLabel1Click(Sender: TObject);
  private
    FontFlag:boolean;
    { Private declarations }
  public
    { Public declarations }
  end;
var
  AboutForm: TAboutForm;
implementation
uses SrmConst;
{$R *.DFM}
procedure TAboutForm.ChineseInfo1Click(Sender: TObject);
begin
  Panel1.Visible:=false;
end;
procedure TAboutForm.FormShow(Sender: TObject);
begin
  FontFlag:=false;
end;
procedure TAboutForm.EMailLabelClick(Sender: TObject);
begin
  ShellExecute(Application.Handle,nil,csEMail,nil,nil,SW_SHOWNORMAL);
end;
procedure TAboutForm.FriendLabelClick(Sender: TObject);
begin
  ShellExecute(Application.Handle,nil,csFriend,nil,nil,SW_SHOWNORMAL);
end;
procedure TAboutForm.HomePageLabelClick(Sender: TObject);
begin
  ShellExecute(Application.Handle,nil,csHomePage,nil,nil,SW_SHOWNORMAL);
end;
procedure TAboutForm.FormKeyPress(Sender: TObject; var Key: Char);
begin
  if Key=#13 then OkSpeedButtonClick(self);
end;
procedure TAboutForm.OkSpeedButtonClick(Sender: TObject);
begin
  Close;
end;
procedure TAboutForm.FormCreate(Sender: TObject);
begin
  OkSpeedButton.Glyph.LoadFromResourceName(HInstance,'OKBMP');
end;
procedure TAboutForm.KvLabel1Click(Sender: TObject);
begin
ShellExecute(Application.Handle,nil,'http://zjfeng.yeah.net',nil,nil,SW_SHOWNORMAL);
end;
end.

						