| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

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

netmouse ©   (2005-01-25 02:11:00) 

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

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

---

Германн   (2005-01-25 04:33:00) [1]

2 aus   (25.01.05 04:02) [4]

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

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

---

aus   (2005-01-25 04:02:00) [2]

Для 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;

а по нажатию сам знаешь.

---

HF-Trade   (2005-01-25 02:35:00) [3]

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

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

---

GanibalLector   (2005-01-25 02:34:00) [4]

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

---

KilkennyCat   (2005-01-25 02:15:00) [5]

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

---

Наверх