Отправляет email-рассылки с помощью сервиса Sendsay

RFpro.ru: Программирование на Delphi и Lazarus

Подписаться Бесплатная «Золотая» новостная рассылка . Подписчиков 3.308 RSS
←   Июль 2007   →
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31


За последние 60 дней ни разу не выходила


Сайт рассылки: http://rusfaq.ru/
Открыта: 14-03-2002

Автор
Калашников О.А.

Статистика

3.308 подписчиков
0 за неделю
←   Все выпуски   →

RusFAQ.ru: Программирование на Delphi


РАССЫЛКИ ПОРТАЛА RUSFAQ.RU

/ КОМПЬЮТЕРЫ И ПО / Языки программирования / Delphi

Выпуск № 867
от 14.07.2007, 01:35

Администратор:Калашников О.А.
В рассылке:Подписчиков: 463, Экспертов: 78
В номере:Вопросов: 1, Ответов: 2

Вопрос № 94377: Здравствуйте, уважаемые эксперты! Как сделать так чтобы при нажатии на кнопку появлялось в текстовом поле Label три сайта и при нажатии на Label можно было выйти в интернет на данный сайт. У меня только получается отобразить только один сайт см.прило...

Вопрос № 94.377
Здравствуйте, уважаемые эксперты! Как сделать так чтобы при нажатии на кнопку появлялось в текстовом поле Label три сайта и при нажатии на Label можно было выйти в интернет на данный сайт. У меня только получается отобразить только один сайт см.приложение. Спасибо.

Приложение:

Отправлен: 08.07.2007, 17:44
Вопрос задала: Ирина Горбунова (статус: Посетитель)
Всего ответов: 2
Мини-форум вопроса >>> (сообщений: 6)
Отвечает: Gh0stik
Здравствуйте, Ирина Горбунова!

Предполагаю Вам просто немного видоизменить процедуру Click, записав ее в таком виде:
procedure TForm1.click(Sender: TObject);
var s:string;
begin
s:=Label1.Caption;
ShellExecute(handle, 'open', pchar('http://'+copy(s,pos(#13,s)+1,length(s))), nil, nil, SW_SHOW);
end;

Прото из текста объекта Label, я Вам советую вырезать адрес нужного сайта, а затем просто сформировать его в соответсвующем виде. Полностью измененный юнит Вы найдете в приложении.

Good Luck!!!

Приложение:

---------
Господь Бог - это всего лишь сверхмощный генератор случайных чисел, в соответствии с которыми сочетаются события на Земле. Генератор случайных чисел - и только.

Ответ отправил: Gh0stik (статус: Профессор)
Украина, Славянск
Организация: Славянский государственный педагогический университет (Кафедра алгебры)
ICQ: 289363162
----
Ответ отправлен: 08.07.2007, 18:19
Отвечает: Градов Юрий Михайлович
Здравствуйте, Ирина Горбунова!
ShellExecute - запускает соответствующее приложение, взависимости от третьего параметра, т.е. если расширение *.txt, то запуститься блокнот, если начинается http:// - то браузер, если *.doc - то Word. В Вашем случае он будет- 'Âûõîä íà ñàéò'+ #13+ ' mail.ru ' и как Вы думаете, какому приложению это принадлежит. Исправление в приложении.

Приложение:

---------
Глаза боятся - руки делают!

Ответ отправил: Градов Юрий Михайлович (статус: Студент)
Ответ отправлен: 08.07.2007, 19:01

Отправить вопрос экспертам этой рассылки

Приложение (если необходимо):

* Код программы, выдержки из закона и т.п. дополнение к вопросу.
Эта информация будет отображена в аналогичном окне как есть.

Обратите внимание!
Вопрос будет отправлен всем экспертам данной рассылки!
Для того, чтобы отправить вопрос выбранным экспертам этой рассылки или
экспертам другой рассылки портала RusFAQ.ru, зайдите непосредственно на RusFAQ.ru.


Форма НЕ работает в почтовых программах The BAT! и MS Outlook (кроме версии 2003+)!
Чтобы отправить вопрос, откройте это письмо в браузере или зайдите на сайт RusFAQ.ru.

© 2001-2007, Портал RusFAQ.ru, Россия, Москва.
Авторское право: ООО "Мастер-Эксперт Про"
Email: support@rusfaq.ru, тел.: +7 (926) 535-23-31
Хостинг: "Московский хостер"
Поддержка: "Московский дизайнер"
Авторские права | Реклама на портале
Версия системы: 4.53 beta от 09.07.2007 		Яндекс Rambler's Top100
RusFAQ.ru | MosHoster.ru | MosDesigner.ru | RusIRC.ru
Kalashnikoff.ru | RadioLeader.ru | RusFUCK.ru
В избранное