IMDICloseEventArgs.MDIChild

Синтаксис

MDIChild: IFormControl;

Описание

Свойство MDIChild возвращает закрываемую дочернюю MDI-форму.

Пример

Для выполнения примера предполагается наличие формы. Данная форма является родительской MDI-формой, содержащей несколько дочерних. При работе формы у дочерних MDI-форм изменяется значение свойства Tag.

Sub FormOnMDIClose(Sender: Object; Args: IMDICloseEventArgs);

Begin

If Args.MDIChild.Tag = 100 Then

Args.Allow := False;

End If;

End Sub FormOnMDIClose;

После выполнения примера при попытке закрыть дочернюю MDI-форму, если ее свойство Tag равно "100", то закрытие данной формы будет отменено.

См. также:

IMDICloseEventArgs