Форум: "WinAPI";
Текущий архив: 2003.05.01;
Скачать: [xml.tar.bz2];
Вниз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]Б-а-а-а-льшое сп-а-а-а-сибо!
Страницы: 1 вся ветка
Форум: "WinAPI";
Текущий архив: 2003.05.01;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.005 c