Richedit kann URL's nicht mehr erkennen - wie doch wieder?

**MessOldie**

Hallo,
ich benutze ein RichEdit für die Anzeige von programmintern gehaltenen Hilfe-Texten.
Wenn ich mit

Delphi-Quellcode:

			procedure TForm1.FormCreate(Sender: TObject);

begin

  with RichEdit1 do

  begin

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

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

    SendMessage(Handle, EM_AUTOURLDETECT, Longint(True), 0);

  end;

end;

das RichEdit für URL'S sensibilisiere, wie hier schon gepostet, dann funktioniert das schon nicht mehr, wenn ich Wordwrap (zur Laufzeit danach) toggle.

zusammenfalten · markieren

Delphi-Quellcode:

			procedure TForm1.FormCreate(Sender: TObject);

begin

  with RichEdit1 do

  begin

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

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

    SendMessage(Handle, EM_AUTOURLDETECT, Longint(True), 0);

    {hier Laden eines Richedit-Texts, z. B. aus Ressource}

    WordWrap := not WordWrap;

    {und schon gehen die Links nicht mehr, auch die Farbe wird ein anderes Blau}

  end;

end;

Kennt jemand eine Gegenmaßnahme?

Richedit kann URL's nicht mehr erkennen - wie doch wieder?

Richedit kann URL's nicht mehr erkennen - wie doch wieder?

Stichworte

Forumregeln