Текущий архив: 2004.10.31;
Скачать: CL | DM;
Вниз
Minimize приложения Найти похожие ветки
← →
IceT (2004-10-18 12:27) [0]Как можно нажав на кнопку минимизации модального окна, минимизировать все приложение. Попробовл сделать следуещее
В форме добавил
protected
procedure WMGetSysCommand(var Message : TMessage); message WM_SYSCOMMAND;
...
begin
inherited;
if (Message.wParam = SC_MINIMIZE) then Application.Minimize;
end;
Не прокатывает. Где ошибка?
← →
TUser © (2004-10-18 12:41) [1]Модальное окно берет на себя обработку всех сообщений посылаемых приложению - на то оно и модальное. Т.е. как бы ты ни пытался, но сообщение о том, что надо минимизироваться не дойдет до главной формы.
← →
Jay (2004-10-18 12:47) [2]Попробуй Unit1.WindowState := wsMinimize;
где Unit1 главная форма
← →
TUser © (2004-10-18 12:49) [3]Все равно не покатит - сообщение не дойдет до MainForm
← →
Jay (2004-10-18 12:54) [4]Нормально сворачивает, только модальное окно остается, его нужно отдельно сворачивать
← →
IceT (2004-10-18 13:15) [5]Некрасиво как-то сворачивается...
← →
Shuma © (2004-10-19 12:59) [6]Такая констукция у меня работала.
Описание метода в разделе private формы.
procedure SysCommand(var Message: TMessage); message WM_SysCommand;
....
procedure TForm1.SysCommand(var Message: TMessage);
begin
if (Message.wParam = SC_MINIMIZE) then Application.Minimize
else
inherited;
end;
Страницы: 1 вся ветка
Текущий архив: 2004.10.31;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.042 c
