Question

我有一段delphi代码，请高手能给我详细的解释，谢谢(争取每句后面都有中文注释)

unit Unit1;

interface

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

type
TForm1 = class(TForm)
Timer1: TTimer;
Timer2: TTimer;
Button1: TButton;
Button2: TButton;
procedure Timer2Timer(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Timer2Timer(Sender: TObject);
begin
if not (form1.ClientHeight = 50) then
begin
form1.ClientHeight := form1.ClientHeight - 10;
end else timer2.Enabled := false;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if not (form1.ClientHeight = 350) then
begin
form1.ClientHeight := form1.ClientHeight + 10;
end else timer1.Enabled := false;
end;

procedure TForm1.FormShow(Sender: TObject);
begin
form1.ClientWidth := 400;
form1.ClientHeight := 40;
timer1.enabled := true;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
timer2.enabled := true;
button2.visible := true;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
timer1.enabled := true;
end;

end.

Answer 1

if not (form1.ClientHeight = 50) then //如果窗体的高不等于50那么
begin
form1.ClientHeight := form1.ClientHeight - 10; //窗体的高度等于窗体的高减去10
end else timer2.Enabled := false; //否则将timer2停止.

下边那个思路一样.略.

form1.ClientWidth := 400; //窗体宽为400
form1.ClientHeight := 40; //高为50
timer1.enabled := true; //timer1启动

timer2.enabled := true; //timer2启动
button2.visible := true; //button2设置为可视

Answer 2

呵呵不就是个时时改变窗体大小的一小段测试程序吗，你会看不懂？！！！！！