Demo2Forms/Unit2_1.$$$

   1 { KOL MCK } // Do not remove this line!\r
   2 \r
   3 procedure NewForm2( var Result: PForm2; AParent: PControl );\r
   4 begin\r
   5 \r
   6   New( Result, Create );\r
   7   Result.Form := NewForm( AParent, 'Form2' ).SetPosition( 245, 272 ).SetSize( 214, 179 );\r
   8   Result.Form.Add2AutoFree( Result );\r
   9     Result.Form.Visible := False;\r
  10       Result.Form.OnClose := Result.KOLForm2Close;\r
  11       Result.Form.OnDestroy := Result.KOLForm2Destroy;\r
  12     // Result.CheckBox1.TabOrder = 0\r
  13     Result.CheckBox1 := NewCheckBox( Result.Form, 'Just Hide, not Close' ).SetPosition( 16, 16 ).SetSize( 177, 0 );\r
  14 \r
  15 end;\r
  16 \r