Class TForm1 (unit smtpmain)

Inherits from

TForm

@/// TForm1 = class(TForm)

Constructors



Functions

procedure btn_attachClick(Sender: TObject);

@\\\0000000F01*) (*@/// procedure TForm1.

procedure btn_goClick(Sender: TObject);

@/// procedure TForm1.

procedure FormCreate(Sender: TObject);

@\\\0000000605*) (*@/// procedure TForm1.

procedure FormDestroy(Sender: TObject);

@\\\0000000301*) (*@\\\0000000915

Properties

Events

Variables

btn_attach : TButton;


btn_go : TButton;


edt_from : TEdit;


edt_host : TEdit;


edt_subject : TEdit;


edt_to : TEdit;


lbl_from : TLabel;


lbl_host : TLabel;


lbl_subject : TLabel;


lbl_text : TLabel;


lbl_to : TLabel;


Mail : T_Mail;


mem_text : TMemo;


Mime : T_Mime;


SMTP : T_SMTP;


attached_files : TStringList;



Constructors


Functions


procedure btn_attachClick(Sender: TObject);

@\\\0000000F01*) (*@/// procedure TForm1.btn_attachClick(Sender: TObject);


procedure btn_goClick(Sender: TObject);

@/// procedure TForm1.btn_goClick(Sender: TObject);


procedure FormCreate(Sender: TObject);

@\\\0000000605*) (*@/// procedure TForm1.FormCreate(Sender: TObject);


procedure FormDestroy(Sender: TObject);

@\\\0000000301*) (*@\\\0000000915


Properties


Events


Variables


btn_attach : TButton;


btn_go : TButton;


edt_from : TEdit;


edt_host : TEdit;


edt_subject : TEdit;


edt_to : TEdit;


lbl_from : TLabel;


lbl_host : TLabel;


lbl_subject : TLabel;


lbl_text : TLabel;


lbl_to : TLabel;


Mail : T_Mail;


mem_text : TMemo;


Mime : T_Mime;


SMTP : T_SMTP;


attached_files : TStringList;