private
Procedure WMSize( Var msg: TWMSize ); Message WM_SIZE;
...
Procedure TChildForm.WMSize( Var msg: TWMSize );
Begin
inherited;
If msg.SizeType = SIZE_MINIMIZED Then
...
End;
Перевод:
Форма MDI (Multiple Document Interface) в Delphi может уведомить своих дочерних форм о изменении своего статуса, например, минимизации или восстановления.
В вашем коде вы уже обрабатываете сообщение WM_SIZE в классе TChildForm, чтобы обнаружить, когда родительская форма MDI минимальна. Свойство SizeType записи TWMSize указывает тип операции изменения размера, произошедшей.
Однако, если вы хотите обнаруживать другие изменения статуса, такие как максимизация или закрытие формы MDI, вы можете обрабатывать другие сообщения окон, специфические для форм MDI. Некоторые примеры:
WM_MDICASCADE: Отправляется, когда форма MDI кэсадрована.
WM_MDICLOSE: Отправляется, когда форма MDI закрывается.
WM_MDICONIZE: Отправляется, когда форма MDI иконизируется (минимизируется).
WM_MDIOPEN: Отправляется, когда форма MDI открывается или восстанавливается из минимального состояния.
Чтобы обрабатывать эти сообщения, вы можете добавить дополнительные процедуры в класс TChildForm, такие как:
Procedure TChildForm.WMCascade(Var msg: TWMCASCADE); Message WM_MDICASCADE;
Begin
// Обработка кэсадрования формы MDI
End;
Procedure TChildForm.WMClose(Var msg: TWMCLOSE); Message WM_MDICLOSE;
Begin
// Обработка закрытия формы MDI
End;
Procedure TChildForm.WMIconize(Var msg: TWMICONIZE); Message WM_MDICONIZE;
Begin
// Обработка иконизации (минимизации) формы MDI
End;
Procedure TChildForm.WMOpen(Var msg: TWMOOPEN); Message WM_MDIOPEN;
Begin
// Обработка открытия или восстановления формы MDI из минимального состояния
End;
Обратите внимание, что вам нужно объявить эти процедуры как обработчики сообщений, указав соответствующее окно сообщения в клаузе Message.
Обрабатывая эти дополнительные сообщения, ваши дочерние формы могут реагировать на изменения статуса формы MDI и обновлять свой поведение соответственно.
В статье описывается способ определения изменения статуса MDI-формы, когда она изменяется на минимальный размер, и предлагается пример кода на Delphi для реализации этого процесса.
