Class Tgridform (unit main) |
Inherits from
TForm
@/// Tgridform = class(TForm)
procedure FormHide(Sender: TObject);
@\\\0000000601*) (*@/// procedure Tgridform.
procedure FormShow(Sender: TObject);
@\\\*) (*@/// procedure Tgridform.
procedure pingPing(sender: TObject; status: Integer; ip,roundtime: Longint);
@/// procedure Tgridform.
procedure TimerCall(Sender: TObject);
@\\\0000000A03*) (*@/// procedure Tgridform.
grid : TStringAlignGrid;
ping : TPing;
Timer : TTimer;
ip : byte;
ip_base : longint;
resolve : boolean;
procedure FormHide(Sender: TObject);
@\\\0000000601*) (*@/// procedure Tgridform.FormHide(Sender: TObject);
procedure FormShow(Sender: TObject);
@\\\*) (*@/// procedure Tgridform.FormShow(Sender: TObject);
procedure pingPing(sender: TObject; status: Integer; ip,roundtime: Longint);
@/// procedure Tgridform.pingPing(sender: TObject; status: Integer; ip,roundtime: Longint);
procedure TimerCall(Sender: TObject);
@\\\0000000A03*) (*@/// procedure Tgridform.TimerCall(Sender: TObject);
grid : TStringAlignGrid;
ping : TPing;
Timer : TTimer;
ip : byte;
ip_base : longint;
resolve : boolean;