ForegroundWindow: IWin32Window;
Свойство ForegroundWindow возвращает окно приложения, находящееся в данный момент на переднем плане.
Для выполнения примера предполагается наличие формы с наименованием «MyForm».
Sub Macro;
Var
f: MyForm;
win32window: IWin32Window;
Begin
Win32window := WinApplication.Instance.Windows.ForegroundWindow;
f := New MyForm.CreateForm(Win32window);
f.ShowModal;
End Sub Macro;
Данный пример является макросом для регламентного отчета. При выполнении макроса, форма «MyForm» запускается модально для регламентного отчета. После закрытия формы фокус переходит к отчету.
См. также: