Открыть нужную ссылку в RichView

[Shouldercannon]

Так я добавляю ссылки

  RichView1.AddNL('Простой текст', 0, 0);
  RichView1.AddNL('url1', 4, 0); // Стиль Jump. url1 имеет ссылку http://programmersforum.ru
  RichView1.AddNL('url2', 4, 0); // Стиль Jump. url2 имеет ссылку http://programmersclub.ru/lab/
  RichView1.Format;

Как в событии OnJump без ошибочно перейти по нужной ссылке.

[mihali4]

Посмотрел хэлп. Сложилось впечатление, что после заполнения RichView нужно составить таблицу соответствия гипертекстовых ссылок их порядковым номерам. Событие OnJump работает как раз с этими порядковыми номерами.
Либо попробовать использовать параметр Tag... Как при заполнении, так и при джампе...

[Shouldercannon]

procedure TForm1.FormCreate(Sender: TObject);
begin
  RichView1.AddNL('Простой текст', 0, 0);
  RichView1.AddNLTag('URL1', 4, 0, 0);
  RichView1.AddNLTag('URL2', 4, 0, 1);
  RichView1.Format;
end;

procedure TForm1.RichView1Jump(Sender: TObject; id: Integer);
begin
  case id of
  0: ShellExecute(0, 'open', 'http://programmersforum.ru', nil, nil, SW_SHOWNORMAL);
  1: ShellExecute(0, 'open', 'http://programmersclub.ru/lab', nil, nil, SW_SHOWNORMAL);
  end;
end;