|
#1
|
||||
|
||||
Курсор
Подскажите пожалуйста, как можно применить к некоторому объекту такой же курсор, что и для URL ссылки в браузере.
— Как тебя понимать? — Понимать меня не обязательно. Обязательно меня любить и кормить вовремя. На Delphi, увы, больше не программирую. Рекомендуемая литература по программированию |
#2
|
|||
|
|||
Например, так:
Код:
procedure TWebStaticText.CMMouseEnter(var Message: TMessage); begin Cursor := crHandPoint; end; procedure TWebStaticText.CMMouseLeave(var Message: TMessage); begin Cursor := crDefault; end; Не забывайте делать резервные копии |
#3
|
||||
|
||||
Энн-нет. Это стандартный дельфишный курсор.
А надо получить курсор как у ссылки в браузере. — Как тебя понимать? — Понимать меня не обязательно. Обязательно меня любить и кормить вовремя. На Delphi, увы, больше не программирую. Рекомендуемая литература по программированию Последний раз редактировалось M.A.D.M.A.N., 21.09.2011 в 21:48. |
#4
|
|||
|
|||
Дельфийский курсоров стандартных нет, все берется из Windows.
crHandPoint - это и есть курсор "лапа с пальцем". Что именно так, в свойствах любого компонента можно посмотреть в списке курсоров (свойство Cursor). Не забывайте делать резервные копии |
#5
|
||||
|
||||
"Лапа с пальцем" как раз и находится внутри ресурса проги. Его можно найти в StdCtrls.res (если мне память не изменяет, но он там точно есть)
— Как тебя понимать? — Понимать меня не обязательно. Обязательно меня любить и кормить вовремя. На Delphi, увы, больше не программирую. Рекомендуемая литература по программированию |
#6
|
|||
|
|||
Цитата:
Ответь проще, какой у тебя курсор показываеться при применении такого кода и какой у тебя курсор стоит в системных для ссылок? StdCtrls.res такого файла вобще нету у меня с двумя версиями Delphi 2009 и 2007 его точно нет. Может ты имеешь ввиду StdCtrls.pas?, но это уже совсем другое. Delphi - это лишь инструмент, а что ты сможешь создать при помощи этого инструмента, зависит исключительно от тебя. |
#7
|
|||
|
|||
У меня по приведенному коду показывается точно такой же курсор какой отображается в любом броузере при наведении на ссылку.
Не забывайте делать резервные копии |
#8
|
|||
|
|||
Цитата:
Это я не тебе То, что этот код верен, когда в системных корсорах на ссылках стоит рука я знаю Delphi - это лишь инструмент, а что ты сможешь создать при помощи этого инструмента, зависит исключительно от тебя. |
#9
|
|||
|
|||
Цитата:
Код:
{$r cursor.res} procedure ... Screen.Cursors[1] := LoadCursor(HInstance,'LINKCUR'); // инициализируем lblLink.Cursor := 1; // устанавливаем курсор |
#10
|
||||
|
||||
Увы, все не то.
Темболее это не трабл. — Как тебя понимать? — Понимать меня не обязательно. Обязательно меня любить и кормить вовремя. На Delphi, увы, больше не программирую. Рекомендуемая литература по программированию |
#11
|
||||
|
||||
Гы, если бы увидели мою "лапу с пальцем"............. В фотошопе из него "фак" сделал со своим лого)))
Не судите строго, пожалуйста |