Registriert seit: 2. Apr 2009
Ort: Reinsdorf OT Friedrichsgrün
12 Beiträge
Delphi 6 Personal
|
Richedit kann URL's nicht mehr erkennen - wie doch wieder?
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
|
|
Zitat
|