Текущий архив: 2004.01.29;
Скачать: CL | DM;
Вниз
Минимизация модальных окон. Найти похожие ветки
← →
Карелин Артем © (2004-01-12 12:54) [0]Как при минимизации модальных окон сворачивать не сами окна, а приложение?
← →
Sandman25 © (2004-01-12 12:55) [1]Наследуйте все модальные окна от нового класса с обработчкиом:
procedure WMSysCommand(var Message: TWMSysCommand); message WM_SYSCOMMAND;
if Message.CmdType = SC_MINIMIZE then
Application.Minimize
else
inherited;
← →
Карелин Артем © (2004-01-13 16:08) [2]Не-а. Программа остается на экране.
← →
alex_*** © (2004-01-13 16:19) [3]ShowWindow(Application.Handle,sw_hide);
← →
Sandman25 © (2004-01-13 16:37) [4][2] Карелин Артем © (13.01.04 16:08)
У меня работает. D6.
Покажите, что пишете.
← →
Dred2k © (2004-01-13 16:37) [5]> alex_*** © (13.01.04 16:19) [3]
Так ты ее с таскбара уберешь.
Вариант > Sandman25 © (12.01.04 12:55) [1] вполне рабочий.
← →
Карелин Артем © (2004-01-19 10:34) [6]
procedure WMSysCommand(var Message: TWMSysCommand); message WM_SYSCOMMAND;
.................
begin
if Message.CmdType = SC_MINIMIZE then
begin
Application.OnActivate:=nil;
ShowWindow(Application.Handle,SW_SHOWMINNOACTIVE);
Application.OnActivate:=MainData.AppActivate;
end
else
inherited;
end;
.................
procedure TMainData.AppActivate(Sender: TObject);
begin
ShowWindow(Application.Handle,SW_SHOWDEFAULT);
Screen.ActiveForm.SetFocus;
end;
Application.Minimize на модальных окнах как-то не хочет работать.
← →
Eugene1501 © (2004-01-19 11:03) [7]Где ты видел чтобы в продуктах Borland,Adobe,Abby,Microsoft Модальные окна минимизировались, да еще вместе с главной формой.
← →
Карелин Артем © (2004-01-19 11:15) [8]Eugene1501 © (19.01.04 11:03) [7]
В моих продуктах минимизируются.
Страницы: 1 вся ветка
Текущий архив: 2004.01.29;
Скачать: CL | DM;
Память: 0.48 MB
Время: 0.014 c
