Tlabel как гиперссылка - Общие вопросы Delphi

s-force · 26.08.2007, 23:53

Как сделать такой label который при наведении на него становится подчеркнутым, курсор меняет свой значок (как на ссылке) и при нажатии на него происходит действие? Я понял все кроме того, как изменить курсор... В свойствах label'a есть графа Cursor но она изменяет на стандартный виндосовский значок (рука такая)... А у меня как и у многих других пользователей измененные курсоры мыши...

mutabor · 27.08.2007, 00:17

Цитата:

но она изменяет на стандартный виндосовский значок (рука такая)...

в том то и дело что не на стандартный, а на Дельфийский, думаю без WinAPI не обойтись

s-force · 27.08.2007, 01:27

А можно пожалуйста поподробнее, а то я в win api не очень шарю

Alex21 · 27.08.2007, 07:38

Попробуй так:

Код:

var
    h: hcursor;

begin
  h := LoadCursorFromFile('D:\mc.cur');
  Screen.Cursors[1] := h;
  Label1.Cursor := 1;
end;

s-force · 27.08.2007, 09:58

Я как понимаю это загружает какой то свой курсор, а мне нужно стандартный (windows)

Aleksandr · 27.08.2007, 10:03

А что так не работает label1.Cursor:=crHandPoint;

s-force · 27.08.2007, 20:43

Во... Теперь все работает! Всем спасибо

26.08.2007, 23:53	#1
s-force Пользователь Регистрация: 24.08.2007 Сообщений: 26	Tlabel как гиперссылка Как сделать такой label который при наведении на него становится подчеркнутым, курсор меняет свой значок (как на ссылке) и при нажатии на него происходит действие? Я понял все кроме того, как изменить курсор... В свойствах label'a есть графа Cursor но она изменяет на стандартный виндосовский значок (рука такая)... А у меня как и у многих других пользователей измененные курсоры мыши...

27.08.2007, 07:38	#4
Alex21 With best regards Участник клуба Регистрация: 20.04.2007 Сообщений: 1,448	Попробуй так: Код: `var h: hcursor; begin h := LoadCursorFromFile('D:\mc.cur'); Screen.Cursors[1] := h; Label1.Cursor := 1; end;` Life is too short, play more... Как правильно задавать вопросы

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
не работает гиперссылка	Sweta	HTML и CSS	4	27.08.2008 09:47
TLabel	satana	Компоненты Delphi	3	10.02.2008 22:01
ГИПЕРССЫЛКА	BAHTIYOR	Microsoft Office Excel	9	09.01.2008 15:45
Гиперссылка на диаграмму	Nasya	Microsoft Office Excel	1	23.07.2007 20:08

27.08.2007, 01:27	#3
s-force Пользователь Регистрация: 24.08.2007 Сообщений: 26	А можно пожалуйста поподробнее, а то я в win api не очень шарю

27.08.2007, 09:58	#5
s-force Пользователь Регистрация: 24.08.2007 Сообщений: 26	Я как понимаю это загружает какой то свой курсор, а мне нужно стандартный (windows)

27.08.2007, 10:03	#6
Aleksandr Форумчанин Регистрация: 22.05.2007 Сообщений: 511	А что так не работает label1.Cursor:=crHandPoint;

27.08.2007, 20:43	#7
s-force Пользователь Регистрация: 24.08.2007 Сообщений: 26	Во... Теперь все работает! Всем спасибо