| Class TServerForm (unit Tnsrv1) |
TForm
| Constructors |
| Functions |
procedure AboutButtonClick(Sender: TObject);
procedure ChangePortButtonClick(Sender: TObject);
procedure Display(Msg : String);
procedure FormActivate(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure FormResize(Sender: TObject);
procedure QuitButtonClick(Sender: TObject);
procedure SrvSocketSessionAvailable(Sender: TObject; Error: Word);
procedure SrvSocketSessionClosed(Sender: TObject; Error: Word);
procedure WMDisconnect(var msg: TMessage);| Properties |
| Events |
| Variables |
AboutButton : TButton;
ChangePortButton : TButton;
Memo : TMemo;
PortEdit : TEdit;
PortLabel : TLabel;
QuitButton : TButton;
SrvSocket : TWSocket;
Clients : TList;| Constructors |
| Functions |
procedure AboutButtonClick(Sender: TObject);* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure ChangePortButtonClick(Sender: TObject);* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure Display(Msg : String);* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure FormActivate(Sender: TObject);* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure FormCreate(Sender: TObject);* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure FormResize(Sender: TObject);* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *} { Adjust the position for each control in the form as the user resize it
procedure QuitButtonClick(Sender: TObject);* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure SrvSocketSessionAvailable(Sender: TObject; Error: Word);* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure SrvSocketSessionClosed(Sender: TObject; Error: Word);* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure WMDisconnect(var msg: TMessage);* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
| Properties |
| Events |
| Variables |
AboutButton : TButton;
ChangePortButton : TButton;
Memo : TMemo;
PortEdit : TEdit;
PortLabel : TLabel;
QuitButton : TButton;
SrvSocket : TWSocket;
Clients : TList;Private declarations