srmabout.pas

初次上传,不太会规类.这是一个电子文档收集的软件.支持从浏览器窗口中托拽到本地窗口中.个人以为比网文快抓,webcollecter之类的好.小,绿色,适用.

//---------------------------------------------------------------------------
//(R)CopyRight KivenSoft International ,inc 1999
//单元名称：启动屏幕单元
//程序名称：电子书库
//作    者：李会文
//开始时间：1998.07.28
//最后修改：1999.03.18
//备注：此单元定义了SRM文件的读写接口
//---------------------------------------------------------------------------
unit SrmAbout;

interface

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

type
  TAboutForm = class(TForm)
    OKButton:TButton;
    Panel2:TPanel;
    Panel1:TPanel;
    ChineseInfo2:TLabel;
    ProgramIcon:TImage;
    ChineseInfo1:TLabel;
    ProductName2:TLabel;
    ProductName1:TLabel;
    Label1:TLabel;
    Version:TLabel;
    Label2:TLabel;
    Copyright:TLabel;
    Label3:TLabel;
    Label4:TLabel;
    Label5:TLabel;
    HomePageLabel:TLabel;
    Label7:TLabel;
    EMailLabel:TLabel;
    Image1:TImage;
    kivenMemo:TMemo;
    procedure ChineseInfo1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure Panel1MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure HomePageLabelMouseMove(Sender: TObject; Shift: TShiftState;
      X, Y: Integer);
    procedure EMailLabelClick(Sender: TObject);
    procedure HomePageLabelClick(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.Panel1MouseMove(Sender: TObject; Shift: TShiftState;
  X, Y: Integer);
begin
  if FontFlag then
  begin
    FontFlag:=false;
    HomePageLabel.Font.Style:=[];
    EMailLabel.Font.Style:=[];
    HomePageLabel.Font.Color:=clGreen;
    EMailLabel.Font.Color:=clOlive;
  end;
end;

procedure TAboutForm.HomePageLabelMouseMove(Sender: TObject;
  Shift: TShiftState; X, Y: Integer);
begin
  TLabel(Sender).Font.Style:=[fsUnderline];
  TLabel(Sender).Font.Color:=clNavy;
  FontFlag:=true;
end;

procedure TAboutForm.EMailLabelClick(Sender: TObject);
begin
  ShellExecute(Application.Handle,nil,csEMail,nil,nil,SW_SHOWNORMAL);
end;

procedure TAboutForm.HomePageLabelClick(Sender: TObject);
begin
  ShellExecute(Application.Handle,nil,csHomePage,nil,nil,SW_SHOWNORMAL);
end;

end.