Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2002.07.15;
Скачать: [xml.tar.bz2];

Вниз

Уважаемые програмисты, помогите советом   Найти похожие ветки 

 
farhad   (2002-07-04 12:38) [0]

Уважаемые програмисты, асы своего дела. Я оказался в затруднении по двум вопросам, если сможете помогите.

Вопрос 1. Как мне в главной форме создать гипер и e-mail ссылки (ну чтобы нажимая на них пользователь попадал на определенные веб страницы указанные на ссылках). Если не затруднит укажите пример с кодом.

Вопрос 2. Как мне создать сплеш окно (ну чтобы при открытии программы оно автоматически загружалось и само закрывалось по истечении некоторого времени). Если не затруднит укажите пример с кодом.

Заренее благодарен.


 
Skier   (2002-07-04 12:46) [1]

>farhad
1) Могу выслать компонент.
2) Есть много примеров в книгах.
Например у Тейксейры и Пачеко.


 
Леха_   (2002-07-04 12:59) [2]

1) обычные TLabel в OnClick вызывать ShellExecute с UPL а для e-mail mailto:<адрес>


 
valery_f   (2002-07-04 13:03) [3]

> Вопрос 1. Как мне в главной форме создать гипер и e-mail ссылки

Самый простой вариант: TLabel, шрифт - синий с подчеркиванием, курсор - crHandPoint, а на OnClick:

uses ShellAPI;

procedure TAboutBox.Label1Click(Sender: TObject);
begin
ShellExecute(0,"open","mailto:huseynovfaf@yahoo.com","","",SW_SHOW);
end;

или

ShellExecute(0,"open"," http://www.winamp.com","","",SW_SHOW);



Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2002.07.15;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.45 MB
Время: 0.011 c
1-47295
volph
2002-06-30 10:33
2002.07.15
TTreeView и сохранить открытые ветки


1-47528
Arthur1
2002-07-04 14:06
2002.07.15
Как получить путь зущеной программы.


3-47199
veronika
2002-06-19 12:58
2002.07.15
Округление значений полей.


7-47851
Doom
2002-04-24 22:20
2002.07.15
Отобразить имя процесса, отличное от имени файла.


1-47536
Vanek
2002-06-27 20:46
2002.07.15
ОС





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский