Class TMainForm (unit UdpSend1) |
Inherits from
TForm
procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure FormShow(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure SendButtonClick(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
Label1 : TLabel;
MessageEdit : TEdit;
PortEdit : TEdit;
SendButton : TButton;
WSocket : TWSocket;
FIniFileName : String;
FKeyName : String;
FSectionName : String;
procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure FormShow(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure SendButtonClick(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
Label1 : TLabel;
MessageEdit : TEdit;
PortEdit : TEdit;
SendButton : TButton;
WSocket : TWSocket;
FIniFileName : String;
FKeyName : String;
FSectionName : String;