delphi RichEdit 加入链接

unit Unit1;

interface

uses
windows, messages, sysutils, variants, classes, graphics, controls, forms,

dialogs, stdctrls, comctrls,richedit,shellapi;

type
  TForm1 = class(TForm)
    Button1: TButton;
    RichEdit1: TRichEdit;
    procedure wndproc(var message : tmessage); override;
   procedure  InitRichEditURLDetection(re:TRichEdit);
    procedure Button1Click(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.InitRichEditURLDetection(re: TRichEdit);
var

mask: Word;

begin

mask := SendMessage(RE.Handle, EM_GETEVENTMASK, 0,0);

SendMessage(RE.Handle, EM_SETEVENTMASK,0, mask or ENM_LINK);

SendMessage(RE.Handle,EM_AUTOURLDETECT, Integer(True), 0);

end;

procedure TForm1.wndproc(var message: tmessage);

var

p: tenlink;

strurl: string;

begin

if (message.msg = wm_notify) then

begin

if (pnmhdr(message.lparam).code = en_link) then

begin

p := tenlink(pointer(twmnotify(message).nmhdr)^);

if (p.msg = wm_lbuttondown) then

begin

sendmessage(richedit1.handle, em_exsetsel, 0, longint(@(p.chrg)));

strurl := richedit1.seltext;

shellexecute(handle, 'open', pchar(strurl), 0, 0, sw_shownormal);

end

end

end;

inherited;

end;

procedure TForm1.Button1Click(Sender: TObject);
 
var
s: string;
begin
InitRichEditURLDetection(RichEdit1);
s:='http://www.180it.com' + #13#10 +
'mailto:haokucn@163.com' + #13#10;

RichEdit1.Text := s;
end;

end.