VPF::Как в RichEdit можно поставить ссылку ?

Samhein

Дата 21.10.2005, 21:19 (ссылка)

(нет голосов)

Загрузка ...

Башзэфашовец

Профиль
Группа: Участник
Сообщений: 282
Регистрация: 27.6.2005

Репутация: нет
Всего: 3

Ну вообщем более правильно будет так:

Код


{....} 
  protected 
    procedure WndProc(var Message: TMessage); override; 
     
{....} 
uses Richedit, ShellApi; 
{Today I want to show how to implement URL highlighting and URL navigation 
without any third-party components. This functionality is implemented in 
RichEdit from Microsoft (and MS Outlook use this feature, for example) and 
only Borland's developers didn't publish it for us.} 

procedure TForm1.RichEdit1Change(Sender: TObject);
var 
  mask: Word; 
begin 
  mask := SendMessage(RichEdit1.Handle, EM_GETEVENTMASK, 0, 0); 
  SendMessage(RichEdit1.Handle, EM_SETEVENTMASK, 0, mask or ENM_LINK); 
  SendMessage(RichEdit1.Handle, EM_AUTOURLDETECT, Integer(True), 0); 
end; 
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;

Это сообщение отредактировал(а) Samhein - 22.10.2005, 13:51

--------------------

Знаю форум наизусть, но писать еще боюсь

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »