Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.011 c