demos/modalhide/Unit2_1.inc

   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( 496, 107 ).SetSize( 241, 239 );\r
   8   Result.Form.Add2AutoFree( Result );\r
   9     Result.Form.Visible := False;\r
  10       Result.Form.OnClose := Result.KOLForm1Close;\r
  11     // Result.Button1.TabOrder = 0\r
  12     Result.Button1 := NewButton( Result.Form, 'ModalResult := 1;' ).SetPosition( 22, 48 ).SetSize( 193, 0 );\r
  13       Result.Button1.OnClick := Result.Button1Click;\r
  14     // Result.Button2.TabOrder = 0\r
  15     Result.Button2 := NewButton( Result.Form, 'ModalResult := 2;' ).SetPosition( 22, 96 ).SetSize( 193, 0 );\r
  16       Result.Button2.OnClick := Result.Button2Click;\r
  17 \r
  18 end;\r
  19 \r