TCustomForm.CreateNew constructor

TCustomForm.CreateNew(
  1. TComponent? AOwner,
  2. int Dummy
)

Implementation

TCustomForm.CreateNew(TComponent? AOwner, int Dummy) : super(AOwner)
{
  ControlStyle.assign( [ControlStyles.AcceptsControls, ControlStyles.CaptureMouse, ControlStyles.ClickEvents,
    ControlStyles.SetCaption, ControlStyles.DoubleClicks] );
  Left = 0;
  Top = 0;
  Width = 320;
  Height = 240;

  _canvas = TControlCanvas(this);

  Visible = false;
  ParentColor = false;
  ParentFont = false;
  Ctl3D = true;
  Screen.AddForm(this);
}