Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.009 c