Проблема с переходом по ссылке

← →
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);
тогда выдает ошибку

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

TControl.WindowProc + F1

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