IControlBar.PutParentForm

Syntax

PutParentForm(Parent: IFormControl);

Parameters

Parent. Parent form.

Description

The PutParentForm method sets the parent form for the popup panel. The method is used when the panels are created dynamically.

Example

Executing the example requires a form and a button named Button1 on the form.

Sub Button1OnClick(Sender: Object; Args: IMouseEventArgs);
Var
    NewControlBar: ControlBar;
Begin
    NewControlBar := New ControlBar.Create;
    NewControlBar.PutParentForm(Self);
    NewControlBar.MetabaseObject := "Form_From_Panel";
    NewControlBar.AllowDocking := True;
    NewControlBar.AllowFloat := True;
    NewControlBar.AutoHide := True;
    NewControlBar.Visible := True;
    NewControlBar.Text := "New ControlBar";
    NewControlBar.Float;
End Sub Button1OnClick;

On clicking the button a popup panel is created. The current form is set as a parent form.