Форум: "Основная";
Текущий архив: 2002.08.15;
Скачать: [xml.tar.bz2];
Вниз
Есть ли у 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;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.007 c