Главная страница
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.019 c
1-48069
Nikoss
2002-08-04 18:29
2002.08.15
Работа с таблицей StringGrid


14-48297
совсем Новенький
2002-07-22 11:30
2002.08.15
Формулы


14-48315
Dr. W
2002-07-21 14:26
2002.08.15
Не совсем по теме... Проблема с TP7


1-48162
maxim2
2002-08-01 13:13
2002.08.15
Как перевести секунды в формате 34545 в формат 00:00:00


6-48243
bob1906
2002-05-31 00:11
2002.08.15
Помогите написать прогу типа BackOrifice для Windows