UNetwork.dfm 1002 B

1234567891011121314151617181920212223242526272829303132333435363738394041424344
  1. object Form3: TForm3
  2. Left = 222
  3. Top = 237
  4. Caption = 'Form3'
  5. ClientHeight = 230
  6. ClientWidth = 432
  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. OnCreate = FormCreate
  15. OnDestroy = FormDestroy
  16. PixelsPerInch = 96
  17. TextHeight = 13
  18. object Timer3: TTimer
  19. Interval = 100
  20. OnTimer = Timer3Timer
  21. Left = 64
  22. Top = 104
  23. end
  24. object ClientSocket: TClientSocket
  25. Active = False
  26. ClientType = ctNonBlocking
  27. Port = 0
  28. OnConnect = ClientSocketConnect
  29. OnDisconnect = ClientSocketDisconnect
  30. OnRead = SocketRead
  31. OnError = ClientSocketError
  32. Left = 152
  33. Top = 56
  34. end
  35. object ServerSocket: TServerSocket
  36. Active = False
  37. Port = 0
  38. ServerType = stNonBlocking
  39. OnClientConnect = ServerSocketClientConnect
  40. OnClientRead = SocketRead
  41. Left = 160
  42. Top = 152
  43. end
  44. end