Форум: "Основная";
Текущий архив: 2004.04.18;
Скачать: [xml.tar.bz2];

Вниз

Гиперссылка   Найти похожие ветки 

← →
User_OKA   (2004-03-27 08:11) [0]

Как в Delphi сделать что то похожее на гиперссылку?

---

← →
Sergey Masloff   (2004-03-27 09:16) [1]

Поставить шрифту свойство underlined. Похожи будут как близнецы-братья ;-)

---

← →
Алхимик ©   (2004-03-27 09:18) [2]

ShellExecute + F1
example:
procedure TForm1.Label1Click(Sender: TObject);
begin
  ShellExecute(0, nil,"http://delphi.mastak.com",nil,nil,1);
end;
procedure TForm1.Label1MouseEnter(Sender: TObject);
begin
  with (Sender As TLabel) do begin
     Font.Color := clRed;
     Font.Style := [fsUnderLine];
     Cursor := crHandPoint;
  end;
end;
procedure TForm1.Label1MouseLeave(Sender: TObject);
begin
  with (Sender As TLabel) do begin
     Font.Color := clBlack;
     Font.Style := [];
     Cursor := crDefault;
  end;
end;

---

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

Форум: "Основная";
Текущий архив: 2004.04.18;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.127 c