ссылка вместо текста!!!

[Abbatik]

подскажите как сделать в Дельфи вывод гиперссылки всмето текста.

в стрингГриде один столбец - ссылкию. Надо чтобы они выводились как в IE c переходом по нажатию на указанный URL

[mihali4]

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

подскажите как сделать в Дельфи вывод гиперссылки всмето текста.

в стрингГриде один столбец - ссылкию. Надо чтобы они выводились как в IE c переходом по нажатию на указанный URL

И в чем, собственно, вопрос?
Чтобы были совсем как ссылки - делаем подчеркнутый шрифт.
Обрабатываем событие StringGrid1SelectCell, по столбцу и строке имеем текст выбранной ячейки, а дальше уже известный метод, хоть WinExec, например...

[Stilet]

хоть WinExec, например...

нууу он не потянет такую задачу, ShellExecute тут самое правильное.

[mihali4]

(А это - чтобы самостоятельно изучил все способы...)

[Abbatik]

Спасибо большое. С ShellExecute получилось!
Все работает.

Я не могу теперь сделать чтобы ссылка выглядела нормально!
Вернее чтобы при наведении она меняла цвет...

Мои соображения таковы:
сделать обработчик по событию OnMouseOver... вот только в чем косяк что ссылки в стрингГриде!

Как узнать над какой ячейкой курсор...

Конечно можно и в OnDrawCells написать...
но только я не знаю какое состояние у наведенной ячейки...
нажатая gdSelected, а просто наведенная???

[mihali4]

Конечно можно и в OnDrawCells написать...

Не только "мона", но и "нуна":

procedure TForm1.DBGrid1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
//глобальные mx,my
mx:=X;
my:=Y;
DBgrid1.Invalidate;
end;

procedure TForm1.DBGrid1DrawDataCell(Sender: TObject; const Rect: TRect;
  Field: TField; State: TGridDrawState);
begin
(Sender as TDBGrid).DefaultDrawDataCell(Rect, Field, State);
if ((mx>Rect.Left) and (my>Rect.Top)) then
....

[AlDelta]

MouseToCell + F1

[Abbatik]

Спасибо большое!