Последние записи

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

29th
Дек

Сделать текст ссылкой

Posted by micher under Delphi

Как в Делфи из колонки Грида превратить текст в ссылку, чтобы можно было открыть веб-страницу?

Подскажите, кто знает?

superedward

в обработчике Grid.OnMouseMove



var sURL: string;

 //sURL равен содержимому ячейки в гриде

 bIsURL:=(Pos('http://',sURL)>0)or(Pos('https://',sURL)>0);

 if bIsURL then Grid.Cursors:=crHandPoint

else Grid.Cursor:=crDefault;

в обработчике Grid.OnClick



var sURL: string;

 //sURL равен содержимому ячейки в гриде

 if Grid.Cursor=crHandPoint then  ShellExecute(Application.Handle,'Open',PChar(sURL),'','',SW_SHOW);

тема на форуме