You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
41 lines
718 B
Plaintext
41 lines
718 B
Plaintext
11 months ago
|
unit u_sendmail_message;
|
||
|
|
|
||
|
|
interface
|
||
|
|
|
||
|
|
uses
|
||
|
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||
|
|
Dialogs, StdCtrls,inifiles, ExtCtrls;
|
||
|
|
|
||
|
|
type
|
||
|
|
Tfrm_sendmail_message = class(TForm)
|
||
|
|
Panel1: TPanel;
|
||
|
|
Label1: TLabel;
|
||
|
|
Panel2: TPanel;
|
||
|
|
memo1: TMemo;
|
||
|
|
Panel3: TPanel;
|
||
|
|
Button1: TButton;
|
||
|
|
Button2: TButton;
|
||
|
|
procedure FormShow(Sender: TObject);
|
||
|
|
private
|
||
|
|
{ Private declarations }
|
||
|
|
public
|
||
|
|
{ Public declarations }
|
||
|
|
end;
|
||
|
|
|
||
|
|
var
|
||
|
|
frm_sendmail_message: Tfrm_sendmail_message;
|
||
|
|
|
||
|
|
implementation
|
||
|
|
|
||
|
|
uses u_data_share, my_sys_function;
|
||
|
|
|
||
|
|
{$R *.dfm}
|
||
|
|
|
||
|
|
procedure Tfrm_sendmail_message.FormShow(Sender: TObject);
|
||
|
|
begin
|
||
|
|
memo1.Lines.Clear;
|
||
|
|
memo1.Lines.Add(MailSignName);
|
||
|
|
end;
|
||
|
|
|
||
|
|
end.
|