Delphi学习笔记(1) 创建一个简单的应用程序

由于工作的原因开始接触Delphi，在这里只是想记录下我的学习过程。

学习任何语言，首先我们要写一些简单的小程序，类似Hello World之类的。在安装好Delphi7 后，新建一个Application：

会自动生成一个名为Form1的表单，从组件板上选择一个按钮放入其中，Delphi会在表单对象的声明中加入下列代码：

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

type
  TForm1 = class(TForm)
    btn1: TButton;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

end.

正如你看到的，该按钮是TForm1类的一个实例变量( Button1)。以后如果要在TForm1以外的地方引用Button1，必须加上对象限定符，即Form1.Button1。

我们现在所要做的就是，生成一个应用程序，使每次单击一下这个按钮就让其高度增加一倍。在表单上双击这个按钮，Delphi将自动生成一个响应鼠标点击的过程的框架，在这里是TForm1.Button1click()，并把输入焦点移到这个事件响应方法的Begin和End之间。所要做的就是在Begin和End之间插入代码，以使按钮的高度扩大一倍：

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    btn1: TButton;
    procedure btn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.btn1Click(Sender: TObject);
begin
btn1.Height := btn1.Height * 2;
end;

end.

接着摁F9就可以编译运行了。