Links im RichEdit anklickbar machen

[Zacherl]

Hallo,
wie kann man Links, die in einem RichEdit stehen anklickbar machen, so dass sie dem Link nachgehen?

Florian

[PierreB]

DP-Suchfunktion => http://www.delphipraxis.net/internal...=323685#323685

[Zacherl]

Danke!
Ich werde glaub ich TJvRichEdit benutzen.

Florian

[freak1985]

geht aber auch ohne TJvRichEdit (also mit einem TRichEdit)

Delphi-Quellcode:

{....}

  protected
    procedure WndProc(var Message: TMessage); override;
    
{....}


uses Richedit, ShellApi;

procedure TForm1.FormCreate(Sender: TObject);
var
  mask: Word;
begin
  mask := SendMessage(RichEdit1.Handle, EM_GETEVENTMASK, 0, 0);
  SendMessage(RichEdit1.Handle, EM_SETEVENTMASK, 0, mask or ENM_LINK);
  SendMessage(RichEdit1.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;

MfG