Question

delphi中 关于form类的 问题

procedure Form.OKButtonClick(Sender: TObject);
begin
if FChanged then
Tag := 1;
Close;
end;

FChanged 是定义在 form类下的 私有属性 ：
private
FChanged: Boolean;

请问这个 按钮事件起什么作用 这个 FChanged 和 tag：=1 是指什么?

Answer 1

Tag是Form的属性，继承自其某个基类。
单看这几行，还把握不到事件处理起什么作用，猜测是别的模块通过检测Form.Tag是否为1，来判断有什么Change了。其实，写得可读性好一些的话，完全可以把私有的FChanged包装成一个public的属性，可以弄成只读的，例如：property SomethingChanged : Boolean read FChanged;