Class TPingTstForm (unit PingTst1) |
Inherits from
TForm
procedure CancelButtonClick(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure Ping1Display(Sender: TObject; Msg: String);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure Ping1DnsLookupDone(Sender: TObject; Error: Word);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure Ping1EchoReply(Sender: TObject; Error: Integer);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure Ping1EchoRequest(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure PingButtonClick(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
CancelButton : TButton;
DisplayMemo : TMemo;
HostEdit : TEdit;
Label1 : TLabel;
Ping1 : TPing;
PingButton : TButton;
procedure CancelButtonClick(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure Ping1Display(Sender: TObject; Msg: String);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure Ping1DnsLookupDone(Sender: TObject; Error: Word);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure Ping1EchoReply(Sender: TObject; Error: Integer);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure Ping1EchoRequest(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure PingButtonClick(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
CancelButton : TButton;
DisplayMemo : TMemo;
HostEdit : TEdit;
Label1 : TLabel;
Ping1 : TPing;
PingButton : TButton;