| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

MoseEnter/MouseLeave для MainMenu [D6, Win95/98]

Darkman ©   (2003-03-02 17:07:00) 

Как отловить для главного меню вход/уход мыши?

---

Darkman   (2003-03-04 20:53:00) [1]

Б-а-а-а-льшое сп-а-а-а-сибо!

---

Мда..   (2003-03-02 20:50:00) [2]

Вот так. Подразумея, что этом на вопрос испчерпан не, кое-что добовлено сверьху було.

{ TForm1 }

procedure TForm1.NCHittest(var message: TWMNCHitTest); {message WM_NCHITTEST;}
var ItemIndex: Integer;
R: TRect;
DC: HDC;
begin
inherited;
Caption := IntToStr(AllocMemSize);
if message.Result = HTMENU then Caption := Caption+" Cursor is in MainMenu1";

ItemIndex := Integer(MenuItemFromPoint(Handle,MainMenu1.Handle,Point(message.XPos,message.YPos)));
DC := GetDC(0);
try
if MainMenu1.Tag <> 0 then
begin
GetMenuItemRect(Handle,MainMenu1.Handle,MainMenu1.Tag,R);
FrameRect(DC,R,Canvas.Brush.Handle);
MainMenu1.Tag := 0;
end;
if (ItemIndex <> -1) then
begin
GetMenuItemRect(Handle,MainMenu1.Handle,ItemIndex,R);
FrameRect(DC,R,GetStockObject(DKGRAY_BRUSH));
MainMenu1.Tag := Integer(ItemIndex);
end;
finally
ReleaseDC(0,DC);
end
end;

Щисливаго праграминья.

---

Наверх