Главная страница
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.017 c
3-47944
duce
2002-07-25 08:02
2002.08.15
Момент отчаяния...Delphi6 + Ora7,8+BDE


1-48187
Не зарегистрированный чайник
2002-08-01 20:21
2002.08.15
Вопросик возник


7-48325
ЗГ
2002-05-23 07:32
2002.08.15
Люди не подскажите как в виндах и в ХР прописать прогу, которая


1-48046
lety
2002-08-03 08:49
2002.08.15
Вид курсора при создании формы


1-48190
Олеся
2002-08-02 15:54
2002.08.15
Как работать с indy?