Class THttpTestForm (unit HttpPg1) |
Inherits from
TForm
procedure AbortButtonClick(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure FormClose(Sender: TObject; var Action: TCloseAction);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *} { Save the form position and size, save the datas for edit boxes.
procedure FormCreate(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure FormShow(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *} { Restore the form position and size, restore the datas for edit boxes.
procedure SendButtonClick(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *} { Do the job !
AbortButton : TButton;
DisplayMemo : TMemo;
EMailEdit : TEdit;
HttpCli1 : THttpCli;
Label1 : TLabel;
Label2 : TLabel;
Label3 : TLabel;
Label4 : TLabel;
MessageEdit : TEdit;
Panel1 : TPanel;
ProxyEdit : TEdit;
SendButton : TButton;
UserIDEdit : TEdit;
FIniFileName : String;
Déclarations privées
FInitialized : Boolean;
procedure AbortButtonClick(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure FormClose(Sender: TObject; var Action: TCloseAction);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *} { Save the form position and size, save the datas for edit boxes.
procedure FormCreate(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure FormShow(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *} { Restore the form position and size, restore the datas for edit boxes.
procedure SendButtonClick(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *} { Do the job !
AbortButton : TButton;
DisplayMemo : TMemo;
EMailEdit : TEdit;
HttpCli1 : THttpCli;
Label1 : TLabel;
Label2 : TLabel;
Label3 : TLabel;
Label4 : TLabel;
MessageEdit : TEdit;
Panel1 : TPanel;
ProxyEdit : TEdit;
SendButton : TButton;
UserIDEdit : TEdit;
FIniFileName : String;
Déclarations privées
FInitialized : Boolean;