Скачать: CL | DM;

Проблема с переходом по ссылке   Найти похожие ветки 

← →
uno-84   (2008-07-04 10:51) [0]

Здравствуйте! подскажите пожалуйста! У меня RichEdit на ходиться PageControl который в свою очередь лежит на Panel, я пишу

procedure TNewMesForm.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(MesRedit.Handle, EM_EXSETSEL, 0, Longint(@(p.chrg)));
                   strURL := MesRedit.SelText;
                   ShellExecute(Handle, "open", PChar(strURL), 0, 0, SW_SHOWNORMAL);
              end;
         end;
    end;
    inherited;
end;
и перход по ссылкам не осуществляется, когда кидаю RichEdit(MesRedit) на форму то все нормально

---

← →
Palladin ©   (2008-07-04 11:04) [1]

И не будет, RichEdit отправляет уведомление своему владельцу, коим, в твоем случае, является TTabSheet. Выход: Заменить TTabSheet.WindowProc

---

← →
uno-84   (2008-07-04 11:13) [2]

Каким образом?
вместо
procedure TNewMesForm.WndProc(var Message: TMessage);
написать
procedure TTabSheet.WindowProc(var Message: TMessage);
тогда выдает ошибку

---

← →
Palladin ©   (2008-07-04 11:17) [3]

> uno-84   (04.07.08 11:13) [2]

TControl.WindowProc + F1

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.015 c