
11.12.2012, 23:18
|
 |
Активный
|
|
Регистрация: 19.11.2011
Адрес: Украина, Луганская обл.
Сообщения: 244
Версия Delphi: 7, XE, Lazarus
Репутация: выкл
|
|
Таким способом не работает
Код:
ID_ONTOP:
case ((GetMenuState(Menu, LOWORD(wParam), MF_BYCOMMAND) and
MF_CHECKED) = MF_CHECKED) of
True: begin
// Снмаеи чек элемента
CheckMenuItem(Menu, LOWORD(wParam), MF_BYCOMMAND or MF_UNCHECKED);
SetWindowPos(Wnd, HWND_NOTOPMOST, 0, 0, 0, 0, SWP_NOMOVE or SWP_NOSIZE or SWP_NOACTIVATE);
end;
False: begin
// Ставим чек элементу
CheckMenuItem(Menu, LOWORD(wParam), MF_BYCOMMAND or
MF_CHECKED);
SetWindowPos(Wnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE or SWP_NOSIZE or SWP_NOACTIVATE);
end;
end;
|