uhelp.pas

Delphi函数工厂。。。。。。。。。。。。。

unit uhelp;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, uCustomModuleForm, StdCtrls, shellapi, ExtCtrls{, URLLabel};

type
  THelpDialog = class;
  THelpConstructorForm = class(TCustomModuleForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Image1: TImage;
    Bevel1: TBevel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    procedure Label6Click(Sender: TObject);
    procedure Label9MouseEnter(Sender: TObject);
    procedure Label9MouseLeave(Sender: TObject);
    procedure Label8Click(Sender: TObject);
  private
    { Private declarations }

  public
    { Public declarations }
    FHelpDialog: THelpDialog;
  end;

  THelpDialog = class(TCustomModuleDialog)
  private
    FModuleForm: THelpConstructorForm;
    FPageIndex: Integer;
  protected
  public
    constructor Create(AOwner: TComponent); override;
    destructor Destroy; override;
    function Execute: Boolean; override;

  published
    property PageIndex: Integer read FPageIndex write FPageIndex
      default 0;
  end;

var
  HelpConstructorForm: THelpConstructorForm;

implementation

{$R *.dfm}
resourcestring
  SDefultHelpDialogTitle = '关于Delphi函数工厂';

constructor THelpDialog.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
  FModuleForm := THelpConstructorForm.Create(Self);
  FModuleForm.FHelpDialog := Self;
  FModuleForm.FDialogModule := Self;
  FModuleForm.Caption := SDefultHelpDialogTitle;
  FWindowForm := FModuleForm;
  FPageIndex := 0;
end;

destructor THelpDialog.Destroy;
begin
  if FModuleForm.Visible then FModuleForm.Close;
  FModuleForm.Free;
  inherited Destroy;
end;

function THelpDialog.Execute: Boolean;
begin
  inherited Execute;
  Result := FModuleForm.ShowModal = mrOK;
end;

procedure THelpConstructorForm.Label6Click(Sender: TObject);
begin
  inherited;
  ShellExecute(Handle,'open',PChar('mailto:'+(Sender as TLabel).Caption+'?subject='),nil, nil, SW_SHOW);
end;

procedure THelpConstructorForm.Label9MouseEnter(Sender: TObject);
begin
  inherited;
 (Sender as TLabel).Font.Style:=(Sender as TLabel).Font.Style+[fsUnderline];
end;

procedure THelpConstructorForm.Label9MouseLeave(Sender: TObject);
begin
  inherited;
(Sender as TLabel).Font.Style:=(Sender as TLabel).Font.Style-[fsUnderline];
end;

procedure THelpConstructorForm.Label8Click(Sender: TObject);
begin
  inherited;
  ShellExecute(Handle,'open',PChar((Sender as TLabel).Caption),nil, nil, SW_SHOW);

end;

end.