mainunit.pas
上传用户:psxgmh
上传日期:2013-04-08
资源大小:15112k
文件大小:1k
源码类别:

Delphi/CppBuilder

开发平台:

Delphi

  1. unit mainunit;
  2. interface
  3. uses
  4.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  5.   Dialogs, StdCtrls;
  6. type
  7.   TForm1 = class(TForm)
  8.     Button1: TButton;
  9.     Button2: TButton;
  10.     procedure Button1Click(Sender: TObject);
  11.     procedure Button2Click(Sender: TObject);
  12.   private
  13.     { Private declarations }
  14.   public
  15.     { Public declarations }
  16.   end;
  17. var
  18.   Form1: TForm1;
  19. implementation
  20. {$R *.dfm}
  21. procedure TForm1.Button1Click(Sender: TObject);
  22. begin
  23.  ShowMessage('It is  xiaoyang'+#39+'s photo');
  24. end;
  25. procedure TForm1.Button2Click(Sender: TObject);
  26. begin
  27.  ShowMessage('This is a special char handle demo!'+#13#10+'Please enjoy it.'+#13#10+'All Rights reserved.');
  28. end;
  29. end.