TRichEdit и проблемы выделения URL-адресов

Я использую текущий код для выделения 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
windows delphi delphi-7

1 ответ:

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

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

С 

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

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

Обновление

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

2