Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 03.01.2010, 21:01   #1
UNREALcv
 
Регистрация: 26.04.2009
Сообщений: 6
По умолчанию ссылки на веб-страницу в Delphi, как?

Доброго времени суток!

У меня такая задача - надо сделать так, что бы при нажатии на label, открывалась заданная ранее в программе, веб-страница. Подскажите как это реализовать?

Заранее спасибо откликнувшимся!
UNREALcv вне форума Ответить с цитированием
Старый 03.01.2010, 21:05   #2
mihali4
*
Старожил
 
Регистрация: 22.11.2006
Сообщений: 9,201
По умолчанию

Код:
var tmp: array[0..255] of Char;
begin
StrPCopy(tmp,Url.Text);
ShellExecute(Application.Handle,'open',tmp,nil,nil,0);
end;
mihali4 вне форума Ответить с цитированием
Старый 03.01.2010, 21:11   #3
UNREALcv
 
Регистрация: 26.04.2009
Сообщений: 6
По умолчанию

извиняюсь, но можете прокомментировать ваш фрагмент кода, он у меня не запускается в приложении...

Последний раз редактировалось mihali4; 03.01.2010 в 21:37.
UNREALcv вне форума Ответить с цитированием
Старый 03.01.2010, 21:36   #4
Gorychev
Участник клуба
 
Аватар для Gorychev
 
Регистрация: 08.03.2008
Сообщений: 1,537
По умолчанию

Код:
procedure TForm1.Label1Click(Sender: TObject);
begin
  ShellExecute(Handle,'OPEN','http://programmersforum.ru',nil,nil,1);
end;
Gorychev вне форума Ответить с цитированием
Старый 03.01.2010, 21:37   #5
mihali4
*
Старожил
 
Регистрация: 22.11.2006
Сообщений: 9,201
По умолчанию

Вместо Url.Text - подставьте строку вида 'http://www.programmersforum.ru'
Что там может не запускаться?

Не стоит понапрасну цитировать предыдущее сообщение.
Внизу есть открытое окошко редактора, туда и вводите свой ответ...

Последний раз редактировалось mihali4; 03.01.2010 в 21:39.
mihali4 вне форума Ответить с цитированием
Старый 03.01.2010, 21:48   #6
UNREALcv
 
Регистрация: 26.04.2009
Сообщений: 6
По умолчанию

Спасибо, разобрался
UNREALcv вне форума Ответить с цитированием
Старый 05.01.2010, 00:26   #7
UNREALcv
 
Регистрация: 26.04.2009
Сообщений: 6
По умолчанию

Подскажите еще пожалуйста, как с помощью выше указанной команды сделать такое: при нажатии на Label - открывается google с результатом поиска по с заданым в программе словом или словосочетанием?
UNREALcv вне форума Ответить с цитированием
Старый 05.01.2010, 00:37   #8
profi
Участник клуба Подтвердите свой е-майл
 
Регистрация: 19.11.2007
Сообщений: 1,022
По умолчанию

Код:
procedure TForm1.Label1Click(Sender: TObject);
var
  str_s, q: string;
begin
  q:='Delphi';
  str_s:='http://www.google.ru/search?q='+q;
  ShellExecute(Handle,'OPEN',PChar(str_s),nil,nil,1);
end;
Вместо
Код:
str_s:='http://www.google.ru/search?q='+q;
можно записать так
Код:
str_s:='http://www.google.ru/search?q='+Edit1.Text;
. Тогда из поля Edit1 строка для поиска будет прикрепляться к самому запросу.

Последний раз редактировалось profi; 05.01.2010 в 00:47.
profi вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
как сделать на своем сайте возможность устанавливать его, как стартовую страницу при загрузке броузера Chaynik Помощь студентам 2 02.03.2009 23:10
Как вставить HTML страницу в Delphi приложение? Valdis Компоненты Delphi 7 03.10.2007 20:52
как загрузить в окно веб страницу? proglamer Работа с сетью в Delphi 3 07.09.2007 20:10
как создать Web-страницу на Delphi geniy Общие вопросы Delphi 8 23.08.2007 17:36
Help! Ссылки на страницу с БД DiX Microsoft Office Excel 1 18.07.2007 02:13