Главная страница
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.015 c
7-48332
Alexec
2002-05-25 08:58
2002.08.15
Ярлыки Windows


4-48379
sergn
2002-06-07 23:18
2002.08.15
ShellExecute и HWND handle окна


1-48074
Axill
2002-08-04 19:49
2002.08.15
*.wav


4-48372
z_z
2002-06-10 23:03
2002.08.15
Форма на рабочем столе


6-48228
Oduvan
2002-06-01 16:47
2002.08.15
Как загрузить текстовый файл находящийся в Интернете