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

← →
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]

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

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

и все ..

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