MoseEnter/MouseLeave для MainMenu

← →
Darkman (2003-03-02 17:07) [0]

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

← →
Мда.. (2003-03-02 20:50) [1]

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

{ 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;

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

← →
Darkman (2003-03-04 20:53) [2]

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

MoseEnter/MouseLeave для MainMenu Найти похожие ветки