Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.08.15;
Скачать: CL | DM;

Вниз

Есть ли у MainMenu свойство Cursor? И как бы это сделать??   Найти похожие ветки 

 
Fissher ©   (2002-07-31 21:05) [0]

Как сделать чтоб в меню мой курсор был???


 
Cobalt ©   (2002-07-31 21:18) [1]

Курсоры устанавливаются только для окон.
Т.е. ставь для окна (у кот-го MainMenu) свой курсор.
Или, если только в меню - обрабатывай событие OnPopup (типа того)


 
Fissher ©   (2002-07-31 22:16) [2]

Проблема в том что я делаю Form1.Cursor := 1;
Везде он мой получается, а в меню почему-то нет :-(((


 
pusrg ©   (2002-07-31 22:29) [3]

Если не хочешь писать свой TMenuItem, попробуй на обработчик OnPopup меню навесить Screen.Cursor:=...

правда по-моему, коряво получится :(


 
Eugene Lachinov ©   (2002-07-31 23:52) [4]

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;



Страницы: 1 вся ветка

Текущий архив: 2002.08.15;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.01 c
1-48160
А. Тимофеев
2002-08-02 09:44
2002.08.15
Рисующий Thread


7-48348
igor345
2002-05-30 15:34
2002.08.15
User LogOn - LogOff


1-48150
Man-In-Red
2002-08-01 15:39
2002.08.15
Помогите пожалуйста!


14-48316
str
2002-07-21 13:03
2002.08.15
Посоветуйте какой-нить программный прокси.


3-47964
basic
2002-07-26 12:44
2002.08.15
Надо линк RxLib