Question

在Delphi中，实现单击同一个按钮改变不同的内容，求源代码

在Delphi中，我设置了一个按钮，caption属性为"下一页"，以及一个编辑框，编辑框的内容是"床前明月光"，我想单击下一页按钮的时候，编辑框内容改变成"疑是地上霜"，再单击一次，再改变为"举头望明月"...这样的效果。直到把这首诗一句一句的显示完。求程序代码，可以的话加上代码注释，解释一下。用什么语句都可以。急！！！

Answer 1

procedure TForm1.FormCreate(Sendor: TObject);
begin
Button1.Tag := 0; // 这一句也可以不要，因缺省的Tag属性取值就是0
// 若有其它，可继续编写
end;

procedure TForm1.Button1Click(Sendor: TObject );
const
// 定义一个数组表示四句
C_asPoet : array[ 1..4 ] of string = (
'床前明月光',
'疑是地上霜',
'举头望明月',
'低头思故乡'
);
begin
if Button1.Tag >= 4 then // 通过Button1.Tag属性来控制选用哪一句，如大于4，就不干了
Exit;
Button1.Tag := Button1.Tag + 1; // 因初值为0，而数组下标从1开始，故先加一
Edit1.Text := C_asPoet[ Button1.Tag ]; // 选用适当的句子
end;

注意：如果Button1.Tag在你的整体逻辑中有其它用途，则将以在TForm中定一个专用的私有变量来计数当前句子。

Answer 2

/