home *** CD-ROM | disk | FTP | other *** search
/ Chip: Shareware for Win 95 / Chip-Shareware-Win95.bin / ostatni / delphi / ruzne / rzcomps.exe / DEMO / MAILFRM.PA_ / MAILFRM.PA
Text File  |  1996-10-18  |  1KB  |  73 lines
  1. unit Mailfrm;
  2.  
  3. interface
  4.  
  5. uses
  6.   SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  7.   Forms, Dialogs, StdCtrls, RzSndMsg, RzLabel;
  8.  
  9. type
  10.   TFrmMail = class(TForm)
  11.     Label1: TLabel;
  12.     Label2: TLabel;
  13.     GroupBox1: TGroupBox;
  14.     EdtTO: TMemo;
  15.     EdtCC: TMemo;
  16.     LstFiles: TListBox;
  17.     BtnBrowse: TButton;
  18.     EdtMessage: TMemo;
  19.     EdtSubject: TEdit;
  20.     Msg: TRzSendMessage;
  21.     BtnSend: TButton;
  22.     Label3: TLabel;
  23.     DlgOpen: TOpenDialog;
  24.     BtnRemove: TButton;
  25.     BtnDone: TButton;
  26.     RzLabel1: TRzLabel;
  27.     RzLabel2: TRzLabel;
  28.     procedure BtnSendClick(Sender: TObject);
  29.     procedure BtnBrowseClick(Sender: TObject);
  30.     procedure BtnRemoveClick(Sender: TObject);
  31.   private
  32.     { Private declarations }
  33.   public
  34.     { Public declarations }
  35.   end;
  36.  
  37. var
  38.   FrmMail: TFrmMail;
  39.  
  40. implementation
  41.  
  42. {$R *.DFM}
  43.  
  44. procedure TFrmMail.BtnSendClick(Sender: TObject);
  45. begin
  46.   Msg.Attachments := LstFiles.Items;
  47.   Msg.ToRecipients := EdtTO.Lines;
  48.   Msg.CcRecipients := EdtCC.Lines;
  49.   Msg.Send;
  50.   { Clear all fields }
  51.   EdtTo.Clear;
  52.   EdtCC.Clear;
  53.   EdtSubject.Clear;
  54.   EdtMessage.Clear;
  55.   LstFiles.Clear;
  56. end;
  57.  
  58.  
  59. procedure TFrmMail.BtnBrowseClick(Sender: TObject);
  60. begin
  61.   if DlgOpen.Execute then
  62.     LstFiles.Items.Add( DlgOpen.FileName );
  63. end;
  64.  
  65.  
  66. procedure TFrmMail.BtnRemoveClick(Sender: TObject);
  67. begin
  68.   if LstFiles.ItemIndex <> -1 then
  69.     LstFiles.Items.Delete( LstFiles.ItemIndex );
  70. end;
  71.  
  72. end.
  73.