Форум: "Основная";
Текущий архив: 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.031 c