TRichEdit'te EM_AUTOURLDETECT ayarlandıktan sonra URL bağlantıları nasıl belirlenir?

Question

EM_AUTOURLDETECT mesajını kullanarak TRichEdit bileşeni için URL algılamayı uygulamaya çalışıyorum.
Aşağıdaki kodu

procedure TForm1.Button1Click(Sender: TObject); 
var Mask: Word; 
begin 
    Mask := SendMessage(Handle, EM_GETEVENTMASK, 0, 0); 
    SendMessage(Handle, EM_SETEVENTMASK, 0, Mask or ENM_LINK); 
    SendMessage(Handle, EM_AUTOURLDETECT, Integer(True), 0); 
end; 

olsa çalışır ile ilgili bir sorun var ama zaten yazılı metin URL'leri tespit almak için bu ayarlardan sonra TRichedit metnini değiştirmek zorunda. Sorun budur, çünkü bu özellik TRichEdit'im ReadOnly modundadır.

Bu kodu gerçekleştirdikten sonra, TRichEdit'i önceden yazılmış bir metindeki URL'leri algılamaya zorlamak için ne yapmalıyım?
documentation'a bakıyordum ama böyle bir şeyden bahsetmiyoruz.

Eğer

Answer 1

Bir süre önce aynı sorunu vardı ve bunun için (oldukça) kirli geçici çözüm kullandım ederiz. EM_AUTOURLDETECT mesajını gönderdikten sonra mevcut seçimi alıp kaydediyorum, sonra (re) zengin düzenleme metnini ayarlayıp daha önce kaydedilen seçimi geri getireceğim.

procedure TForm1.Button1Click(Sender: TObject); 
var 
    EventMask: Word; 
    CharRange: TCharRange; 
begin 
    EventMask := SendMessage(RichEdit1.Handle, EM_GETEVENTMASK, 0, 0); 
    SendMessage(RichEdit1.Handle, EM_SETEVENTMASK, 0, EventMask or ENM_LINK); 
    SendMessage(RichEdit1.Handle, EM_AUTOURLDETECT, WPARAM(True), 0); 
    SendMessage(RichEdit1.Handle, EM_EXGETSEL, 0, LPARAM(@CharRange)); 
    SendMessage(RichEdit1.Handle, WM_SETTEXT, 0, LPARAM(RichEdit1.Text)); 
    SendMessage(RichEdit1.Handle, EM_EXSETSEL, 0, LPARAM(@CharRange)); 
end;