About.pas
上传用户:mjqmds
上传日期:2022-05-05
资源大小:2827k
文件大小:1k
- 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.