Ссылка в TStringGrid

[peter888]

Мне надо создать таблицу в которой будут некоторые данные, и в одном поле должны быть ссылки на разные сайты.
Я попробовал TStringGrid, но что-то не выходит.
Как сделать активную ссылку в TStringGrid’е на сайт?..
Возможно ли это?.. Если нет, то посоветуйте компонент, в котором это возможно.

[_SERGEYX_]

Ну, если в этом поле ничего не будет кроме ссылок, то почему бы не сделать в этом столбце синий подчеркнутый шрифт, курсор crHandPoint и при клике в ячейке

uses ShellApi
ShellExecute (Form1.Handle, nil, 'http://programmersforum.ru', nil, nil, SW_RESTORE);

[MaxNik2009]

Что значит активную ссылку? это что бы при плике по ячейке отрывалась ссылка? если да, то может так:

procedure TForm1.FormCreate(Sender: TObject);
begin
  StringGrid1.Cells[1, 1]:= 'http://www.google.ru/'; // добавляем ссылку в StringGrid
end;

procedure TForm1.StringGrid1SelectCell(Sender: TObject; ACol, ARow: Integer;
  var CanSelect: Boolean);
var
  sLink: string;
begin
  sLink:= StringGrid1.Cells[ACol, ARow];
  if sLink <> '' then
    ShellExecute(0,'open',PWideChar(sLink), nil,nil,sw_Normal); 
end;

[mutabor]

Если нужно несколько ссылок в одной ячейке, то варианта два:
1. Выводить их как текст, и ловить положение курсора, и в зависимости от него менять курсор на палец, подсвечивать ссылку если нужно, и клик обрабатывать.
2. Создавать для каждой ссылки Label и монтировать его поверх таблицы, сделать привязку, чтобы при прокрутке они следовали за своей ячейкой. Label'у задать нужные свойства, чтобы был на ссылку похож, вид курсора над ним, и обрабатывать клик по нему.

p.s. Есть еще вариант - заюзать VirtualTreeView, оч. хороший компонент, может очень много, наверняка и ссылки может показать без лишней мороки (читать здесь).