|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
02.04.2007, 20:12 | #1 |
Heavy metal
Пользователь
Регистрация: 02.04.2007
Сообщений: 42
|
Полноэкранный режим и главное меню
Доброго времени суток!
Есть вопрос... Надо сделать так чтобы главное меню моей программы при переходе в полноэкранный режим (методом BorderStyle:=bsNone; WindowState:=wsMaximized; ) скрывалось, а при подведении курсора к верху экрана автоматически показывалось. Я пробовал так: когда надо скрыть меню ставим Self.MainMenu:=nil; а потом обратно Self.MainMenu:=MainMenu1; Но это вызывает изменение размеров клиентской части окна. В большинстве программ где есть такая фича, меню просто появляется ПОВЕРХ окна не изменяя его размер. Можно ли так сделать в VCL? или через WinAPI? И есть ли другой способ сделать полноэкранный режим? |
02.04.2007, 21:33 | #2 |
Средний прогер
Форумчанин
Регистрация: 16.01.2007
Сообщений: 123
|
Попробуй так:
Создай еще одно окно (BorderStyle:=bsNone), помести на него меню. Создай сверху в главном окне какой-то прозрачный обьект (например TShape). И в событии этого обьекта OnMouseMove: begin form2.show; end; Ну там дальше создай условие скрытия окна/меню. Сам не пробовал. |
03.04.2007, 10:56 | #3 |
Heavy metal
Пользователь
Регистрация: 02.04.2007
Сообщений: 42
|
Большое спасибо за идею!!! Получилось!
Сейчас выложу код, может ещё кому пригодится. Код:
Код:
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
переход в полноэкранный режим | andrey4623 | Общие вопросы Delphi | 7 | 11.03.2008 09:28 |
Помогить настроить полноэкранный режим для Turbo Pascal 7.0 в Терминале | olegbelyi | Паскаль, Turbo Pascal, PascalABC.NET | 1 | 30.10.2007 13:05 |
Полноэкранный режим | Кронос | Gamedev - cоздание игр: Unity, OpenGL, DirectX | 1 | 26.08.2007 12:17 |
полноэкранный режим в Delphi | deadh5n1 | Общие вопросы Delphi | 1 | 27.06.2007 09:18 |
Полноэкранный режим | mishel | Общие вопросы Delphi | 2 | 26.01.2007 02:31 |