Сворачивание формы

[lu_una]

Добрый день!
Подскажите, нужно при сворачивании одной формы (мди-ребенка), на мди-маме treeview стало визибл, как обработать сворачивание??
Думала applicationevents - minimize, что то не получилось.. может не правильно его использовала.

[Morfius]

Application.Minimize;

[Xardas]

Нужно перехватывать сообщения WINDOWS о сворачивании формы. Можно перехватить сообщение изменения размеров окна

В раздел private дочерней формы

procedure WMSize(var Msg : TWMSIZE); message WM_SIZE;

В Implementation

procedure ИмяОбъявленногоТипаФормы.WMSize;
begin
   if Msg.SizeType = Size_Minimized then
   begin
     ГлавнаяФорма.TreeView.visible := true;
   end;
   Inherited;
end;

Примерно так

[lu_una]

Xardas, кажется то что надо!!)) Спасибо!!)
а так же , разворачивание как отследить?

[Xardas]

Сообщение от lu_una

Xardas, кажется то что надо!!)) Спасибо!!)
а так же , разворачивание как отследить?

....
if Msg.SizeType = Size_Restored 
.....

Будет сложность только с тем, что при разворачивании окна во весь экран и при возвращении его в исходное состояние условие тоже выполнится. Если этого не надо, то заведите логическую переменную, меняйте ее значение при минимизации окна и вместе с Size_Restored проверяйте, было ли окно до этого свернуто или развернуто