Вниз
Скачать: 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 вся ветка

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



Память: 0.46 MB
Время: 0.011 c
14-88618
Sergo
2002-04-19 13:34
2002.05.27
GroupBox


1-88507
MystiX
2002-05-14 21:30
2002.05.27
Hooks


7-88642
Red Alert
2002-02-25 13:37
2002.05.27
Связь с АТС


7-88659
Slym
2002-01-21 10:12
2002.05.27
Как написать драйвер виртуального диска (no CD, but HDD)


1-88440
Alibaba
2002-05-17 12:53
2002.05.27
Как раcшарить диск?




   Наверх