About.pas
上传用户:mjqmds
上传日期:2022-05-05
资源大小:2827k
文件大小:1k
源码类别:

DirextX编程

开发平台:

Delphi

  1. unit About;
  2. interface
  3. uses
  4.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  5.   Dialogs, LMDControl, LMDBaseControl, LMDBaseGraphicControl, LMDBaseLabel,
  6.   LMDCustomLabel, LMDCustomLabelFill, LMDLabelFill, ShellAPI;
  7. type
  8.   TAForm = class(TForm)
  9.     LMDLabelFill1: TLMDLabelFill;
  10.     LMDLabelFill2: TLMDLabelFill;
  11.     procedure LMDLabelFill2MouseEnter(Sender: TObject);
  12.     procedure LMDLabelFill2MouseExit(Sender: TObject);
  13.     procedure LMDLabelFill2Click(Sender: TObject);
  14.   private
  15.     { Private declarations }
  16.   public
  17.     { Public declarations }
  18.   end;
  19. var
  20.   AForm: TAForm;
  21. implementation
  22. {$R *.dfm}
  23. procedure TAForm.LMDLabelFill2MouseEnter(Sender: TObject);
  24. begin
  25.     LMDLabelFill2.Font.Style:=[fsUnderline];
  26. end;
  27. procedure TAForm.LMDLabelFill2MouseExit(Sender: TObject);
  28. begin
  29.     LMDLabelFill2.Font.Style:=[];
  30. end;
  31. procedure TAForm.LMDLabelFill2Click(Sender: TObject);
  32. begin
  33.     ShellExecute(0,'open',PChar('Mailto:'+'hhcwy@163.com'),'','',SW_SHOW);
  34. end;
  35. end.