Возможно ли указать текст в виде ссылки (подчеркнутый)

← →
netmouse © (2005-01-25 02:11) [0]

Возможно ли указать текст в виде ссылки (подчеркнутый) по одинарному нажатию выполнение:

ShellExecute(0, nil, "mailto:fuck_you@mail.ru", nil, nil, 1);

← →
KilkennyCat © (2005-01-25 02:15) [1]

возможно. Это Ваше мыло? Как мило...

← →
GanibalLector © (2005-01-25 02:34) [2]

TLabel.Слышал про такой? Так вот,там Font и Cursor измени.Ну и на Label1Click тот код впиши. ;)
З.Ы.С D видать пару дней работаешь...

← →
HF-Trade © (2005-01-25 02:35) [3]

Label1.Caption.Font.Style:=[fsUnderLine];
Label1.Caption:="mailto:fuck_you@mail.ru";

ShellExecute(handle,"Open",PChar(Label1.Caption), nil, nil, sw_restore);

← →
aus (2005-01-25 04:02) [4]

Для D7 (может и 6, не помню)
procedure TForm1.Label1MouseEnter(Sender: TObject); begin with Label1.Font do begin Color := clBlue; Style := [fsUnderline]; end; end; procedure TForm1.Label1MouseLeave(Sender: TObject); begin Label1.ParentFont := true; end;
а по нажатию сам знаешь.

2 aus (25.01.05 04:02) [4]

Честно говоря - очень глупый ответ.
Общепринято, что любые ссылки на И-Нет - всегда отличаются по шрифту от всего прочего, в том числе и от ParentFont.

Причем стиль Underline им стоит иметь всегда. Так тоже "общепринято".
А вот менять цвет при наведении мышкой на них и при уходе с них мышки (точнее указателя мышки) - сам бог велел.

Возможно ли указать текст в виде ссылки (подчеркнутый) Найти похожие ветки