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

минимизация приложений с модальными окнами   Найти похожие ветки 

← →
Ruslan_i   (2002-09-30 14:58) [0]

Ситуация такая: есть программа состоящая из главного и модального окна. При вызове модального окна главное скрывается. Когда пытаюсь свернуть модальное окно, программа сворачивается в прямоугольник над панелью задач. Как сделать так чтобы программа сворачивалась в кнопку на панели задач?

---

← →
pasha_golub ©   (2002-09-30 15:36) [1]

программа сворачивается в панель задач только при минимизации ГЛАВНОГО ОКНА.

---

← →
Дмитрий Иванов ©   (2002-10-01 02:44) [2]

а ты перехвати момент минимизации модального окна и пошли сообщение минимизировать главное окно

---

← →
Ruslan_i   (2002-10-01 07:26) [3]

Спасибо за совет, но все остается как и раньше. Я использую в подчиненном модальном окне вот эту процедуру:

Procedure tslaveform.WMGetSysCommand(var Message :TMessage);
begin
IF (Message.wParam = SC_MINIMIZE) then
begin
slaveform.WindowState := wsMinimized;
mainform.WindowState := wsMinimized;
end
else inherited;
end;

может что не так?
Руслан

---

← →
USTAS   (2002-10-01 09:23) [4]

попробуй вместо
slaveform.WindowState := wsMinimized;
mainform.WindowState := wsMinimized;
сделать
Application.Minimize;

---

← →
Ruslan_i   (2002-10-01 10:47) [5]

Пробовал. Это отрабатывает только с немодальными окнами, к сожалению.

---

← →
Дмитрий Иванов ©   (2002-10-01 12:48) [6]

procedure TModalForm.WMGetSysCommand(var Message : TMessage) ;
begin
if Message.wParam=SC_MINIMIZE then MainForm.Perform(WM_SYSCOMMAND,SC_MINIMIZE,0)
else inherited;
end;

и все ..

---

Страницы: 1 вся ветка

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



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