Скачать: CL | DM;

Приветствую!!! Как сделать label ссылкой на инет ресурс   Найти похожие ветки 

← →
Zloy ©   (2004-12-15 16:17) [0]

соот-но при наведении на нее указатель изменяется, при кликанье открывается браузер по умолчанию с этой страницей. Тоже самой и e-mail адресом, при кликанье создается пиьсмо в браузере по умолчанию с этим адресом.

---

← →
Семен Сорокин ©   (2004-12-15 16:21) [1]

на OnMouseEnter меняй внешний вид Label"а (Font, Cursor), на OnMouseLeave - обратно, на OnClick запускай (например через ShellExecute) нужную строчку ресурса.

---

← →
ghg ©   (2004-12-15 16:45) [2]

procedure TEdit.Click;
var
 mail: string;
begin
 inherited;
 mail := "mailto:" + e_mail_adresata;
 ShellExecute(0, "open", pChar(mail), nil, nil, SW_SHOWNORMAL);
end;
{------------------------------------------------------}
procedure TEdit.Click;
var
 mail: string;
begin
 inherited;
 mail := "www.delphimaster.ru";
 ShellExecute(0, "open", pChar(mail), nil, nil, SW_SHOWNORMAL);
end;

---

← →
Zloy ©   (2004-12-16 09:43) [3]

Спасибо,  а скажите возможно с почтой добавить еще текст в сообщение, и назвать тему  сообщения, через код дельфи??

---

← →
Рамиль ©   (2004-12-16 10:03) [4]

Zloy ©   (16.12.04 9:43) [3]
Делфи тут ни причем. Смотри параметры mailto
http://html.manual.ru/book/html/body/hyperlinks/a.php

---

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

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.027 c