DirextX编程

开发平台：

Delphi

About.pas：源码内容

							unit About;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, LMDControl, LMDBaseControl, LMDBaseGraphicControl, LMDBaseLabel,
  LMDCustomLabel, LMDCustomLabelFill, LMDLabelFill, ShellAPI;
type
  TAForm = class(TForm)
    LMDLabelFill1: TLMDLabelFill;
    LMDLabelFill2: TLMDLabelFill;
    procedure LMDLabelFill2MouseEnter(Sender: TObject);
    procedure LMDLabelFill2MouseExit(Sender: TObject);
    procedure LMDLabelFill2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  AForm: TAForm;
implementation
{$R *.dfm}
procedure TAForm.LMDLabelFill2MouseEnter(Sender: TObject);
begin
    LMDLabelFill2.Font.Style:=[fsUnderline];
end;
procedure TAForm.LMDLabelFill2MouseExit(Sender: TObject);
begin
    LMDLabelFill2.Font.Style:=[];
end;
procedure TAForm.LMDLabelFill2Click(Sender: TObject);
begin
    ShellExecute(0,'open',PChar('Mailto:'+'hhcwy@163.com'),'','',SW_SHOW);
end;
end.

						