Einzelnen Beitrag anzeigen

Benutzerbild von MessOldie
MessOldie

Registriert seit: 2. Apr 2009
Ort: Reinsdorf OT Friedrichsgrün
12 Beiträge
 
Delphi 6 Personal
 
#1

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

  Alt 5. Mär 2016, 12:28
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.
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?
Gottfried Pilz
Man kann immer noch dazulernen
  Mit Zitat antworten Zitat