Текущий архив: 2002.05.27;
Скачать: CL | DM;
Вниз
Создание ссылки Найти похожие ветки
← →
VJar (2002-05-15 21:39) [0]Как создать ссылку, которая открывала бы
определенную страницу, в сиде обычного
Label на форме??? (И при наведении менялся курсор)
← →
S@shka (2002-05-15 22:07) [1]есть компонент такой поищи в инете
TURLLabel
я где то даже видел но точно не скажу.
← →
KaPaT © (2002-05-15 22:17) [2]Возь у лэйбала поменяй цвет и подчеркнутость....еще поменяй тип курсора...дальше обрабатывай OnClick....
или ищи компоненты которые сказаны выше =)
← →
Song © (2002-05-15 23:07) [3]Всё просто: TLabel.Cursor
Какие проблемы?
← →
Almaz © (2002-05-15 23:27) [4]
> VJar (15.05.02 21:39)
На счет курсора см. Song © (15.05.02 23:07), а что касается перехода по клику, то в OnClick для Label напиши следующее:
uses ..., UrlMon.
...
procedure TForm1.Label1Click(Sender: TObject);
begin
HlinkSimpleNavigateToString("www.mmm100.com", nil,
nil, nil, nil, nil, 0, 0);
end;
Удачи.
← →
Song © (2002-05-15 23:34) [5]2Almaz © (15.05.02 23:27)
По-моему так универсальней:
procedure TForm1.Label1Click(Sender: TObject);
begin
ShellExecute(Handle,"open",PChar(Label1.Caption),nil,nil,SW_SHOWNORMAL);
end;
← →
Almaz © (2002-05-16 00:04) [6]
> Song © (15.05.02 23:34)
А чем универсальней-то ? И то и другое откроют страничку в браузере, установленном в системе.
Удачи.
Страницы: 1 вся ветка
Текущий архив: 2002.05.27;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.015 c
