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 it.

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 pressing the button the popup panel is created. The current form is set as a parent form.

See also:

IControlBar