TRichEdit и проблемы с подсветкой URL - PullRequest
Новая
       21

TRichEdit и проблемы с подсветкой URL

2 голосов
/ 24 августа 2010

Я использую текущий код для выделения URL-адресов в TRichEdit: 

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;

procedure TForm1.InitRichEditURLDetection;
var
      mask: Word;
begin
      mask := SendMessage(Handle, EM_GETEVENTMASK, 0, 0);
      SendMessage(RichEdit1.Handle, EM_SETEVENTMASK, 0, mask or ENM_LINK);
      SendMessage(RichEdit1.Handle, EM_AUTOURLDETECT, Integer(True), 0);
      form1.RichEdit1.OnChange := form1.RichEdit1Change;
end;

Он выделяет URL-адреса, однако предотвращает вызов моего RichEdit1.OnChange. Я пытаюсь установить снова изнутри WndProc и других подходов, но ничего не работает. В ту минуту, когда я включаю подсветку URL (вызывая InitRichEditURLDetection в FormCreate) OnChange перестает работать.

Это на Delphi 7.

Есть предложения? спасибо!

1 Ответ

2 голосов
/ 24 августа 2010

В вашем коде есть ошибка.Замените 

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

на 

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

Из-за этой ошибки mask не будет содержать биты событий по умолчанию элемента управления Rich Edit, поэтому элемент управления Rich Edit теряет эти флаги событийкогда ты EM_SETEVENTMASK;в частности, ему будет не хватать ENM_CHANGE бита.

Обновление

Сертак Акьюз обнаружил еще одну ошибку при остановке показа: mask должно быть целым числом (которое действительно является типом результатаиз SendMessage).

...