Приветствую!!! Как сделать 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]

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

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

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