about.pas

来自「delphi example delphi example delphi exa」· PAS 代码 · 共 79 行

unit About;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, jpeg, ExtCtrls, shellapi;

type
  TForm2 = class(TForm)
    Image1: TImage;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Bevel1: TBevel;
    procedure Label5MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Label5MouseLeave(Sender: TObject);
    procedure Label6MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Label6MouseLeave(Sender: TObject);
    procedure Label5Click(Sender: TObject);
    procedure Label6Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}

procedure TForm2.Label5MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  label5.Font.Color:= clred;
end;

procedure TForm2.Label5MouseLeave(Sender: TObject);
begin
  label5.Font.Color:= clnavy;
end;

procedure TForm2.Label6MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  label6.Font.Color:= clred;
end;

procedure TForm2.Label6MouseLeave(Sender: TObject);
begin
  label6.Font.Color:= clnavy;
end;

procedure TForm2.Label5Click(Sender: TObject);
var
  URL: string;
begin
  URL:= label5.Caption;
  ShellExecute(application.Handle,'open',pchar(URL),nil,nil,sw_shownormal);
end;

procedure TForm2.Label6Click(Sender: TObject);
var
  mail: string;
begin
  mail:= 'mailto:' + label6.Caption;
  ShellExecute(application.Handle,'open',pchar(mail),nil,nil,sw_shownormal);
end;

end.