unitformflash.pas

图象处理的一些相关内容 不是很难的,实现简单,希望对大家有帮助

unit UnitFormFlash;

interface

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

type
  TFormFlash = class(TForm)
    Label1: TLabel;
    Panel1: TPanel;
    Image1: TImage;
    Label2: TLabel;
    Label3: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure LinkLabelClick(Sender: TObject);
    procedure Image1Click(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

type

  TLinkLabel = class(TLabel)

protected
  procedure CMMouseEnter(var Message: TMessage); message CM_MOUSEENTER;
  procedure CMMouseLeave(var Message: TMessage); message CM_MOUSELEAVE;
end;


var
  FormFlash: TFormFlash;
  linklabel1:TLinkLabel;

implementation

{$R *.dfm}

{ TLinkLabel }

procedure TLinkLabel.CMMouseEnter(var Message: TMessage);
begin
  font.Color := clblue;
  Font.Style:=Font.Style+[fsunderline];
  Cursor:= crHandPoint;
//
end;

procedure TLinkLabel.CMMouseLeave(var Message: TMessage);
begin
  font.color:=clblack;
  Font.Style:=Font.Style-[fsunderline];
  Cursor:=crDefault;
  //
end;

procedure TFormFlash.FormCreate(Sender: TObject);
begin
  Linklabel1:=TLinkLabel.create(self);
  Linklabel1.parent:=panel1;
  Linklabel1.enabled:=true;
  Linklabel1.Transparent:=true;
  Linklabel1.left:=100;
  Linklabel1.top:=230;
  Linklabel1.Font.Size:=12;
  Linklabel1.Font.Name:='Arial';
  Linklabel1.Font.Color:=clblack;
  Linklabel1.caption:='E-mail:[e-mail]';
  Linklabel1.visible:=true;
  Linklabel1.onclick:=LinkLabelClick;


//
end;

procedure TFormFlash.LinkLabelClick(Sender: TObject);
begin
  ShellExecute(handle,nil,pchar('mailto:[e-mail]'),nil,nil,sw_shownormal);

end;

procedure TFormFlash.Image1Click(Sender: TObject);
begin
  self.Close;
end;

procedure TFormFlash.FormDestroy(Sender: TObject);
begin
Linklabel1.Free;
end;

end.