Вывод форматированного текста

[cefew]

В ответ на поисковый запрос нужно вывести результаты (примерно как в Google), при щелчке на любой из них показывается окно с полным текстом.
Как это можно реализовать?

[Utkin]

Также как и Гугл, построить html страничку с линками. По сути гугл возвращает отчет о своей работе. Сделайте аналогично.

[cefew]

Я знаю только один компонент, который может отображать html - TTextBrowser. Но как в нем обрабатывать переход по ссылке не знаю. Нужно чтобы каждая ссылка открывалась в новой вкладке (TabSheet), причем текст не хранится в файле, а генерируется на лету

[Utkin]

Стоп. ХТМЛ можно поместить хоть в лабел, хоть в мемо . Вопрос в другом - будет ли осуществляться автоматический переход по линку и подсветка самих линков. Ничто не мешает мне поместить код странички в Мемо правильно? Сперва Вам нужно научиться готовить для пользователя страничку с ссылками - ну просто набор линков. Если они у Вас есть думаю этот этап будет не очень сложен.

Ну собственно компонент http://yandex.ru/yandsearch?clid=145...BD%D1%82%D0%B0

[cefew]

Сообщение от Utkin

Ничто не мешает мне поместить код странички в Мемо правильно?

Правильно , но зачем?

Подготовить нужный код html нетрудно, как потом его передать в TWebBrowser для отображения?
Найденный пример не работает, ругается на IHTMLDocument2

procedure TextToWebBrowser(Text: string; var WB: TWebBrowser_V1);
var
  Document: IHTMLDocument2;
  V: OleVariant;
begin
  // Документ необходимо создать только один раз за текущую сессию работы
  if WB.Document = nil then
    WB.Navigate('about:blank');
  // Ожидаем создания документа и позволяем обрабатывать все сообщения
  while WB.Document = nil do
    Application.ProcessMessages;
  Document := WB.Document as IHtmlDocument2;
  // Вставляем текст (до 2Гб)
  {следующие строчки внесены недавно - старый вариант функции не работал под XP}
  V := VarArrayCreate([0, 0], varVariant);
  V[0] := Text;
  Document.Write(PSafeArray(TVarData(v).VArray));
  Document.Close;
end;

[Utkin]

Сообщение от cefew

Правильно , но зачем?

Найденный пример не работает, ругается на IHTMLDocument2

Почему найденный пример? А где НАЙДЕННЫЕ ПРИМЕРЫ? Я давал ссылку на страничку яндекса с ссылками на описание компонента - что в полумиллионе страниц один пример? А что говорит Гугл? Я к чему веду - поиск основа Интернета.
заходим например сюда: http://www.sources.ru/delphi/delphi_...wser_faq.shtml

Смотрим:

...

var
  v: Variant;
  HTMLDocument: IHTMLDocument2;  
begin
  HTMLDocument := WebBrowser1.Document as IHTMLDocument2;
  v := VarArrayCreate([0, 0], varVariant);
  v[0] := HTMLString; // Это Ваша HTML строка
  HTMLDocument.Write(PSafeArray(TVarData(v).VArray));
  HTMLDocument.Close;

  ...
end;

...

Почти одно и тоже, но все-таки...
Кроме того, немного фантазии. Если Вы торопитесь и Вам некогда разбираться с созданием страницы:
1. Вы можете загрузить ее из файла (Ваше: зачем мне генерировать страницу в Мемо ?)
2. Вы можете вставить страничку из буфера обмена

И последнее: специально не поленился и набрал TWebBrowser в поиске по данному сайту...