Class TInfoForm (unit Info)

Inherits from

TForm

^^^^^^^ --> get the current IP-Address

Constructors



Functions

procedure btnHangupClick(Sender: TObject);


procedure FormClose(Sender: TObject; var Action: TCloseAction);

Timer1.

procedure FormCreate(Sender: TObject);


procedure FormHide(Sender: TObject);


procedure FormShow(Sender: TObject);


procedure statsScan;

Timer1.

procedure getActiveConnectionData;

Private-Deklarationen

function getIP : string;

No connection open

Properties

Events

Variables

beGerat : TLabel;


beschSpeed : TLabel;


beSeit : TLabel;


beVerbind : TLabel;


btnHangup : TButton;


btnOk : TButton;


Image3 : TImage;


IpEdit : TEdit;


labBesIP : TLabel;


Label2 : TLabel;


labEmpfangen : TLabel;


labGerat : TLabel;


labHinw : TLabel;


labSeit : TLabel;


labSpeed : TLabel;


labVerb : TLabel;


labwertempf : TLabel;


labwertges : TLabel;


Panel1 : TPanel;


stats : TInterMeter;



Constructors


Functions


procedure btnHangupClick(Sender: TObject);


procedure FormClose(Sender: TObject; var Action: TCloseAction);

Timer1.Enabled:=False;


procedure FormCreate(Sender: TObject);


procedure FormHide(Sender: TObject);


procedure FormShow(Sender: TObject);


procedure statsScan;

Timer1.Enabled:=False;


procedure getActiveConnectionData;

Private-Deklarationen


function getIP : string;

No connection open


Properties


Events


Variables


beGerat : TLabel;


beschSpeed : TLabel;


beSeit : TLabel;


beVerbind : TLabel;


btnHangup : TButton;


btnOk : TButton;


Image3 : TImage;


IpEdit : TEdit;


labBesIP : TLabel;


Label2 : TLabel;


labEmpfangen : TLabel;


labGerat : TLabel;


labHinw : TLabel;


labSeit : TLabel;


labSpeed : TLabel;


labVerb : TLabel;


labwertempf : TLabel;


labwertges : TLabel;


Panel1 : TPanel;


stats : TInterMeter;