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

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

← →
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;

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

---

← →
Германн ©   (2005-01-25 04:33) [5]

2 aus   (25.01.05 04:02) [4]

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

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

---

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

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



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