[The Shadow]

Как сделать, чтобы компонент TPopupMenu и TMainMenu всегда прорисовывались также, как и в ОС? Проблема в том, что если добавить какое-нибудь изображение в меню, то это меню рисуется само.
И еще один вопрос. Курсор crHandPoint отличается от системного курсора (руки), как извлечь курсор из системы?

[Nekromant Set'а]

Сообщение от The Shadow

И еще один вопрос. Курсор crHandPoint отличается от системного курсора (руки), как извлечь курсор из системы?

Присоединяюсь к вопросу меня тоже интерисует такая фича...

[Winny]

Что значит "чтобы компонент TPopupMenu и TMainMenu всегда прорисовывались также, как и в ОС"?

Зачем курсор извлекать из Windows? Он лежит в папке Windows\Cursors.

Код:

var
h: hcursor;
begin
h := LoadCursorFromFile('C:\Windows\Cursors\hand.cur');// Посмотри в папке Windows\Cursors курсор с рукой. И его название ставишь вместо hand.cur
Screen.Cursors[1] := h;
Form1.Cursor := 1;

[Nekromant Set'а]

2 Winny:
Вообще-то мы имели виду, что нам надо узнать позицию самого курсора на экране, а где он находится - все знают =)

[zip000]

Сообщение от Nekromant Set'а

узнать позицию самого курсора на экране

GetCursorPos

[The Shadow]

Сообщение от Winny

Что значит "чтобы компонент TPopupMenu и TMainMenu всегда прорисовывались также, как и в ОС"?

Если в менб вставлять картинки, то они прорисовываются не так, как без них.
http://aid-files.narod.ru/Menus.bmp

[mav_c]

Сообщение от The Shadow

Если в менб вставлять картинки, то они прорисовываются не так, как без них.
http://aid-files.narod.ru/Menus.bmp

Ты ничего не поделаешь. Реально в системных меню нет рисунков. Если они появляются с рисунками значит их делфя прорисовывает

[Winny]

Узнать позицию курсора на экране:

Код:

var
X:Integer;
Y:Integer;
begin
X:=Mouse.CursorPos.X;
Y:=Mouse.CursorPos.Y;

Так подходит?

[Winny]

Сообщение от The Shadow

Как сделать, чтобы компонент TPopupMenu и TMainMenu всегда прорисовывались также, как и в ОС? Проблема в том, что если добавить какое-нибудь изображение в меню, то это меню рисуется само.
И еще один вопрос. Курсор crHandPoint отличается от системного курсора (руки), как извлечь курсор из системы?

Пожалуйста почитай пункт 2.3 вот здесь

[The Shadow]

А курсор может носить и другое имя. У меня, например, курсор в виде руки называется aero_link.cur. Как быть в таком случае?

[The Shadow]

Проблема с курсором решена. Имена всех системных курсоров находятся в реестре - HKEY_CURRENT_USER\Control Panel\Cursors.