| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Есть ли у MainMenu свойство Cursor? И как бы это сделать?? [D6, Win2k]
Fissher © (2002-07-31 21:05:00)Как сделать чтоб в меню мой курсор был???
Eugene Lachinov (2002-07-31 23:52:00) [1]procedure WMSetCursor(var Message : TWMSetCursor); message WM_SETCURSOR;
procedure WMInitMenu(var Message : TWMInitMenu); message WM_INITMENU;
procedure TForm1.WMInitMenu(var Message : TWMInitMenu);
begin
inherited;
SetCursor(LoadCursor(0, IDC_CROSS))
end;
procedure TForm1.WMSetCursor(var Message : TWMSetCursor);
begin
if Message.HitTest = HTMENU then begin
SetCursor(LoadCursor(0, IDC_CROSS));
Message.Result := 1
end else
inherited
end;
pusrg (2002-07-31 22:29:00) [2]Если не хочешь писать свой TMenuItem, попробуй на обработчик OnPopup меню навесить Screen.Cursor:=...
правда по-моему, коряво получится :(
Fissher (2002-07-31 22:16:00) [3]Проблема в том что я делаю Form1.Cursor := 1;
Везде он мой получается, а в меню почему-то нет :-(((
Cobalt (2002-07-31 21:18:00) [4]Курсоры устанавливаются только для окон.
Т.е. ставь для окна (у кот-го MainMenu) свой курсор.
Или, если только в меню - обрабатывай событие OnPopup (типа того)
| |
