| Class Tfrm_ping (unit u_ping) |
TForm
@/// Tfrm_ping = class(TForm)
| Constructors |
| Functions |
procedure btn_breakClick(Sender: TObject);
procedure btn_startClick(Sender: TObject);
procedure PingPing(sender:TObject; status:Integer; ip,roundtime:Longint);
procedure TimerTimer(Sender: TObject);| Properties |
| Events |
| Variables |
btn_break : TButton;
btn_start : TButton;
edt_hostname : TEdit;
lbl_host : TLabel;
mem_out : TMemo;
Ping : TPing;
Timer : TTimer;| Constructors |
| Functions |
procedure btn_breakClick(Sender: TObject);@\\\003E000601000601000801000A01000709000709*) (*@/// procedure Tfrm_ping.btn_breakClick(Sender: TObject);
procedure btn_startClick(Sender: TObject);@/// procedure Tfrm_ping.btn_startClick(Sender: TObject);
procedure PingPing(sender:TObject; status:Integer; ip,roundtime:Longint);@\\\*) (*@/// procedure Tfrm_ping.PingPing(sender:TObject; status:Integer; ip,roundtime:Longint);
procedure TimerTimer(Sender: TObject);@\\\*) (*@/// procedure Tfrm_ping.TimerTimer(Sender: TObject);
| Properties |
| Events |
| Variables |
btn_break : TButton;
btn_start : TButton;
edt_hostname : TEdit;
lbl_host : TLabel;
mem_out : TMemo;
Ping : TPing;
Timer : TTimer;