unit6.pas

来自「电气控制仿真软件」· PAS 代码 · 共 45 行

unit Unit6;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ExtCtrls;

type
  TForm6 = class(TForm)
    Memo1: TMemo;
    Memo2: TMemo;
    Button1: TButton;
    Button2: TButton;
    Image1: TImage;
    Image2: TImage;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form6: TForm6;

implementation

{$R *.DFM}

procedure TForm6.Button1Click(Sender: TObject);
begin
  ShowMessage( '热烈欢迎您发邮件到[e-mail]'#13'或到网站论坛发贴子。' );
  ModalResult := mrNone;
end;

procedure TForm6.Button2Click(Sender: TObject);
begin
  ShowMessage( '请发邮件到[e-mail]'#13'或打电话[phone]联系购买。' );
  ModalResult := mrOk;
end;

end.