[M.A.D.M.A.N.]

Подскажите пожалуйста, как можно применить к некоторому объекту такой же курсор, что и для URL ссылки в браузере.

[san-46]

Например, так:

Код:

procedure TWebStaticText.CMMouseEnter(var Message: TMessage);
begin
  Cursor := crHandPoint;
end;

procedure TWebStaticText.CMMouseLeave(var Message: TMessage);
begin
  Cursor := crDefault;
end;

[M.A.D.M.A.N.]

Энн-нет. Это стандартный дельфишный курсор.
А надо получить курсор как у ссылки в браузере.

[san-46]

Дельфийский курсоров стандартных нет, все берется из Windows.
crHandPoint - это и есть курсор "лапа с пальцем".
Что именно так, в свойствах любого компонента можно посмотреть в списке курсоров (свойство Cursor).

[M.A.D.M.A.N.]

"Лапа с пальцем" как раз и находится внутри ресурса проги. Его можно найти в StdCtrls.res (если мне память не изменяет, но он там точно есть)

[Alexo]

Сообщение от san-46

Например, так:

Код:

procedure TWebStaticText.CMMouseEnter(var Message: TMessage);
begin
  Cursor := crHandPoint;
end;

procedure TWebStaticText.CMMouseLeave(var Message: TMessage);
begin
  Cursor := crDefault;
end;

Ответь проще, какой у тебя курсор показываеться при применении такого кода и какой у тебя курсор стоит в системных для ссылок? StdCtrls.res такого файла вобще нету у меня с двумя версиями Delphi 2009 и 2007 его точно нет. Может ты имеешь ввиду StdCtrls.pas?, но это уже совсем другое.

[san-46]

У меня по приведенному коду показывается точно такой же курсор какой отображается в любом броузере при наведении на ссылку.

[Alexo]

Сообщение от san-46

У меня по приведенному коду показывается точно такой же курсор какой отображается в любом броузере при наведении на ссылку.

Это я не тебе То, что этот код верен, когда в системных корсорах на ссылках стоит рука я знаю

[Drozh]

Сообщение от M.A.D.M.A.N.

Подскажите пожалуйста, как можно применить к некоторому объекту такой же курсор, что и для URL ссылки в браузере.

Натыкался на такуюже траблу год назад... Нашел выход просто добавление нужного курсора

Код:

{$r cursor.res}

procedure ...
 Screen.Cursors[1] := LoadCursor(HInstance,'LINKCUR'); // инициализируем

 lblLink.Cursor := 1; // устанавливаем курсор

[M.A.D.M.A.N.]

Увы, все не то.
Темболее это не трабл.

[Arcanis]

Гы, если бы увидели мою "лапу с пальцем"............. В фотошопе из него "фак" сделал со своим лого)))