MainForm.dfm 1.9 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103
  1. object frmMain: TfrmMain
  2. Left = 196
  3. Top = 181
  4. Width = 428
  5. Height = 316
  6. Caption = 'Basic TCP client/server - client'
  7. Color = clBtnFace
  8. Font.Charset = DEFAULT_CHARSET
  9. Font.Color = clWindowText
  10. Font.Height = -11
  11. Font.Name = 'MS Sans Serif'
  12. Font.Style = []
  13. OldCreateOrder = False
  14. OnCloseQuery = FormCloseQuery
  15. OnCreate = FormCreate
  16. PixelsPerInch = 96
  17. TextHeight = 13
  18. object Bevel1: TBevel
  19. Left = 0
  20. Top = 0
  21. Width = 420
  22. Height = 41
  23. Align = alTop
  24. end
  25. object Label2: TLabel
  26. Left = 9
  27. Top = 13
  28. Width = 22
  29. Height = 13
  30. Caption = 'Host'
  31. end
  32. object Label3: TLabel
  33. Left = 165
  34. Top = 13
  35. Width = 19
  36. Height = 13
  37. Caption = 'Port'
  38. end
  39. object edHost: TEdit
  40. Left = 38
  41. Top = 9
  42. Width = 121
  43. Height = 21
  44. TabOrder = 0
  45. Text = '127.0.0.1'
  46. end
  47. object edPort: TEdit
  48. Left = 194
  49. Top = 9
  50. Width = 41
  51. Height = 21
  52. TabOrder = 1
  53. Text = '8800'
  54. end
  55. object btnConnect: TButton
  56. Left = 242
  57. Top = 5
  58. Width = 75
  59. Height = 25
  60. Caption = 'Connect'
  61. TabOrder = 2
  62. OnClick = btnConnectClick
  63. end
  64. object memMsgs: TMemo
  65. Left = 0
  66. Top = 40
  67. Width = 185
  68. Height = 89
  69. Lines.Strings = (
  70. 'memMsgs')
  71. TabOrder = 3
  72. end
  73. object Panel1: TPanel
  74. Left = 0
  75. Top = 264
  76. Width = 420
  77. Height = 25
  78. Align = alBottom
  79. TabOrder = 4
  80. object edMsg: TEdit
  81. Left = 2
  82. Top = 2
  83. Width = 415
  84. Height = 21
  85. Anchors = [akLeft, akTop, akRight]
  86. TabOrder = 0
  87. Text = 'edMsg'
  88. OnKeyPress = edMsgKeyPress
  89. end
  90. end
  91. object Client: TIdTCPClient
  92. OnDisconnected = ClientDisconnected
  93. OnConnected = ClientConnected
  94. Port = 0
  95. Left = 352
  96. end
  97. object Timer1: TTimer
  98. Interval = 100
  99. OnTimer = Timer1Timer
  100. Left = 8
  101. Top = 48
  102. end
  103. end