units/dde/dde_server_demo/KOLForm_1.inc

   1 { KOL MCK } // Do not remove this line!\r
   2 \r
   3 procedure NewForm1( var Result: PForm1; AParent: PControl );\r
   4 begin\r
   5 \r
   6   New( Result, Create );\r
   7   Result.Form := NewForm( AParent, 'DDE server' ).SetPosition( 195, 133 ).SetSize( 184, 73 );\r
   8   Applet :=  Result.Form;\r
   9   Result.Form.Add2AutoFree( Result );\r
  10 \r
  11     Result.Timer1 := NewTimer( 1000 );\r
  12   Result.Form.Add2AutoFree( Result.Timer1 );\r
  13       Result.Timer1.OnTimer := Result.Timer1Timer;\r
  14 \r
  15     Result.test_topic := NewDDEServerConv( Result.Form );\r
  16     Result.test_topic.Name := 'test_topic';\r
  17   Result.Form.Add2AutoFree( Result.test_topic );\r
  18 \r
  19     Result.test_item := NewDDEServerItem( Result.Form );\r
  20     Result.test_item.Name := 'test_item';\r
  21     Result.test_item.Conv := Result.test_topic;\r
  22   Result.Form.Add2AutoFree( Result.test_item );\r
  23     // Result.L1.TabOrder = -1\r
  24     Result.L1 := NewLabel( Result.Form, 'Label1' ).SetPosition( 8, 8 ).SetSize( 161, 0 );\r
  25     Result.L1.TextAlign := taCenter;\r
  26     Result.Timer1.Enabled := True;\r
  27 \r
  28 end;\r
  29 \r
  30 \r