about.pas

来自「大家来看看很好的源码啊里面包含很多知识点啊学习学习」· PAS 代码 · 共 65 行

//###############################################################
//######作者:杨畅(sheepchang)##################################
//######Email:[e-mail] QQ:1103754####################
//######我为人人，人人为我。希望大家一起交流，共同进步!##########
//###############################################################
unit about;

interface

uses
  Forms,Dialogs, StdCtrls, ExtCtrls, dxCore, dxButtons, ShellAPI, Classes,
  Graphics, Controls;

type
  TForm3 = class(TForm)
    Panel1: TPanel;
    Image1: TImage;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    dxButton1: TdxButton;
    procedure dxButton1Click(Sender: TObject);
    procedure Label3Click(Sender: TObject);
    procedure Label3MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Label3MouseLeave(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form3: TForm3;
implementation

{$R *.dfm}
procedure TForm3.dxButton1Click(Sender: TObject);
begin
Close;
end;

procedure TForm3.Label3Click(Sender: TObject);
//当单击这个标签时，打开默认的邮件发送程序
begin
  ShellExecute(Handle,nil,
    PChar('mailto:[e-mail]?Subject=关于快速截图!'),
    nil,nil,1);
end;

procedure TForm3.Label3MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin//鼠标在此标签上时设置字体颜色和指针样式
Label3.Font.Color := clBlue;
Screen.Cursor := crHandpoint;
end;

procedure TForm3.Label3MouseLeave(Sender: TObject);
begin//鼠标离开此标签时设置字体颜色和指针样式
Label3.Font.Color := clBlack;
Screen.Cursor := crDefault;
end;

end.