Форум: "Основная";
Текущий архив: 2004.03.28;
Скачать: [xml.tar.bz2];
Вниз
Как свернуть все окна программы Найти похожие ветки
← →
СержК (2004-03-04 14:56) [0]Уважаемые мастера, подскажите как сделать так, чтобы при нажатии на BorderIcons: biMinimize - в модальной форме сворачивались все формы программы?
← →
Романов Р.В. © (2004-03-04 14:59) [1]Application.Minimize
← →
СержК (2004-03-04 16:04) [2]А на какое событие это нужно вставить?
← →
TUser © (2004-03-04 16:20) [3]Если надо отследить минимизацию одного к-нибудь окна - то в Form.OnCanResize. Или ваще заменить кнопку на свою, используя компонент TJvCaptionButton.
← →
СержК (2004-03-04 16:31) [4]Но мне кажется Form.OnCanResize не совсем удобно. Программа будет сворачиваться при любом изменении размера - пользователь будет пугаться.
← →
СержК (2004-03-09 11:49) [5]Уважаемые мастера, ничего не получается Application.Minimize не срабатывает (ставил и на OnCanResize, и на другие события). Может я что-то не то делаю?
Подскажите.
← →
REA © (2004-03-09 11:57) [6]Procedure WMSysCommand(var Message: TWMSysCommand); message WM_SYSCOMMAND;
Procedure TMyForm.WMSysCommand(var Message: TWMSysCommand);
Begin
if (Message.CmdType and $FFF0) = SC_MINIMIZE then
begin
EnableWindow(Application.Handle, True);
Application.Minimize;
Message.Result := 0;
end else inherited;
End;
← →
fatal © (2004-03-09 12:07) [7]Если я правильно понял ты пытаешься обработать щелчек при нажатии на BorderIcons;
procedure WMSysCommand(var Msg: TWMSysCommand);
message WM_SYSCOMMAND;
procedure TMainFrm.WMSysCommand;
begin
if Msg.CmdType = SC_MINIMIZE then MainFrm.Hide <- //Твои действия
else inherited;
end;
Можешь вставиь код сворачивающий все остальные окна.
← →
fatal © (2004-03-09 12:08) [8]Пока копировал с исходника уже продублировали ... ;)
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2004.03.28;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.038 c
