abinfdlg.pas

著名的虚拟仪表控件,包含全部源码, 可以在,delphi2007 下安装运行

unit AbInfDlg;

{******************************************************************************}
{ Abakus VCL                                                                   }
{                                Info - Dialog                                 }
{                                                                              }
{******************************************************************************}
{        e-Mail: [e-mail] , Web: http://www.abaecker.com            }
{------------------------------------------------------------------------------}
{          (c) Copyright 1998..2001 A.Baecker, All rights Reserved             }
{******************************************************************************}

{$I Abks.inc}

interface

uses
  Windows,
  Classes,
  Controls,
  Forms,
  extctrls,
  StdCtrls,
  Buttons,
  ShellAPI,
  {$IFDEF D6} DesignIntf, DesignEditors, {$ELSE} DsgnIntf, {$ENDIF}
  {****** Abakus VCL - Units ******}
  _AbInfo, _AbProc, Graphics;

type
  TAbInfoForm = class(TForm)
    BitBtn1: TBitBtn;
    Label1: TLabel;
    Image1: TImage;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Bevel1: TBevel;
    Bevel2: TBevel;
    Bevel3: TBevel;
    procedure Label7Click(Sender: TObject);
    procedure Label8Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
    constructor Create(AOwner: TComponent); override;
  end;

  TAbInfoEditor = class(TPropertyEditor)
  public
    procedure edit; override;
    function GetAttributes: TPropertyAttributes; override;
    function GetValue: string; override;
  end;


implementation

{$R *.DFM}

{==============================================================================}

procedure TAbInfoEditor.edit;
var
  AbInfoForm        : TAbInfoForm;
begin
  AbInfoForm := TAbInfoForm.Create(Application);
  AbLoadFormPos(AbInfoForm);
  try
    with AbInfoForm do
    begin
      if _AbInfo.Reg = 'Registered' then
        Label3.Caption := _AbInfo.Reg
      else
      begin
        Label3.Caption := _AbInfo.Reg;
      end;
      Label1.Caption := _AbProc.pName;
      Label4.Caption := 'V ' + _AbProc.pVersion;
      Label7.Caption := _AbProc.Mail;
      Label8.Caption := _AbProc.WWW;
      Label6.Caption := _AbProc.Copyright;
      if showModal = mrOK then
      begin

      end;
    end;
  finally
    AbSaveFormPos(AbInfoForm);
    AbInfoForm.Free;
  end;
end;

function TAbInfoEditor.GetAttributes: TPropertyAttributes;
begin
  result := [paDialog];
end;

function TAbInfoEditor.GetValue: string;
begin
  result := '(' + _AbProc.pName + ')';
end;

{==============================================================================}

constructor TAbInfoForm.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
end;

procedure TAbInfoForm.Label7Click(Sender: TObject);
var
  MailStr           : string;
begin
  MailStr := 'MailTo:' + Label7.Caption;
  ShellExecute(self.Handle, nil, PChar(MailStr), nil, nil, 0);
end;

procedure TAbInfoForm.Label8Click(Sender: TObject);
var
  WebStr            : string;
begin
  WebStr := Label8.Caption;
  ShellExecute(self.Handle, nil, PChar(WebStr), nil, nil, 0);
end;

end.