Показ и скрытие нескольких форм

← →
leonidus (2008-05-04 10:40) [0]

Господа, вопрос вроде детский но разобраться не смог. Есть две формы: Form1 - главная и Form4 - второстепенная так сказать :) По клику на контроле на первой форме нужно показать вторую скрыв первую, делаю так:
form4.show;
form1.hide;

все хорошо, но вот Form4 при минимизации сворачивается не на панель задач, а на рабочий стол, как этого избежать?

← →
@!!ex © (2008-05-04 11:13) [1]

Ловить событие минимизации, и там Application.Minimize;

← →
Anatoly Podgoretsky © (2008-05-04 13:39) [2]

> leonidus (04.05.2008 10:40:00) [0]

А куда еще сворачиваться подчиненым формам, у них же нет кнопки на панели задач.
Надо стиль окна менять, или сворачивать главное окно

← →
223001 (2008-05-04 19:50) [3]

напиши по другому form1.visible:=false; form4.visible:=true;

← →
Восхищенный (2008-05-04 20:10) [4]

> 223001 (04.05.08 19:50) [3]

И че тогда будет?

Вот кусочек VCL:
procedure TCustomForm.Hide; begin Visible := False; end; procedure TCustomForm.Show; begin Visible := True; BringToFront; end;
Удивись и больше не советуй людям то, чего сам не знаешь, ладно?

> leonidus (04.05.08 10:40)

См. [1] и [2]. Application.Minimize поможет.

← →
leonidus (2008-05-06 19:54) [5]

всем большое спасибо, проблема была решена следующим способом:

Procedure WMGetSysCommand(var Message :TMessage); message WM_SYSCOMMAND;

...

Procedure TForm4.WMGetSysCommand(var Message : TMessage) ;
Begin
iF (Message.wParam = SC_MINIMIZE) Then application.Minimize
else Inherited;
End;

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