www.pudn.com > srmsrc.zip > 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.