Class Tfrm_ping (unit u_ping) |
Inherits from
TForm
@/// Tfrm_ping = class(TForm)
procedure btn_breakClick(Sender: TObject);
@\\\003E000601000601000801000A01000709000709*) (*@/// procedure Tfrm_ping.
procedure btn_startClick(Sender: TObject);
@/// procedure Tfrm_ping.
procedure PingPing(sender:TObject; status:Integer; ip,roundtime:Longint);
@\\\*) (*@/// procedure Tfrm_ping.
procedure TimerTimer(Sender: TObject);
@\\\*) (*@/// procedure Tfrm_ping.
btn_break : TButton;
btn_start : TButton;
edt_hostname : TEdit;
lbl_host : TLabel;
mem_out : TMemo;
Ping : TPing;
Timer : TTimer;
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);
btn_break : TButton;
btn_start : TButton;
edt_hostname : TEdit;
lbl_host : TLabel;
mem_out : TMemo;
Ping : TPing;
Timer : TTimer;