| Class Tsmdlg (unit Smdialog) |
TForm
| Constructors |
| Functions |
procedure cancelClick(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure PaintBox1Paint(Sender: TObject);
procedure SendMailMailInfo(Sender: TObject; info: SendMailInfo;addinfo: String);
procedure TimerTimer(Sender: TObject);
procedure MailDone(Sender: TObject);
procedure StartUp(var Msg: TMsg);| Properties |
| Events |
| Variables |
cancel : TButton;
counter : TLabel;
PaintBox1 : TPaintBox;
Panel1 : TPanel;
SendMail : SendMail;
Status : TLabel;
Timer : TTimer;
c1 : TColor;
c2 : TColor;
FDemo : Boolean;
OnMailInfo : TSendMailInfoEvent;
OnNextMessage : TNotifyEvent;
tattach : string;
tcancel : string;
tconnected : string;
tconnecting : string;
toi : word;
trecpt : string;
tsend : string;
UpdateInfoCallBack : TUpdateCallbackProc;
done : Longint;
todo : Longint;| Constructors |
| Functions |
procedure cancelClick(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure PaintBox1Paint(Sender: TObject);
procedure SendMailMailInfo(Sender: TObject; info: SendMailInfo;addinfo: String);
procedure TimerTimer(Sender: TObject);Sendmail dialog form code
procedure MailDone(Sender: TObject);
procedure StartUp(var Msg: TMsg);| Properties |
| Events |
| Variables |
cancel : TButton;
counter : TLabel;
PaintBox1 : TPaintBox;
Panel1 : TPanel;
SendMail : SendMail;
Status : TLabel;
Timer : TTimer;
c1 : TColor;
c2 : TColor;
FDemo : Boolean;
OnMailInfo : TSendMailInfoEvent;
OnNextMessage : TNotifyEvent;
tattach : string;
tcancel : string;
tconnected : string;
tconnecting : string;
toi : word;
trecpt : string;
tsend : string;
UpdateInfoCallBack : TUpdateCallbackProc;
done : Longint;
todo : Longint;