关于TDBNavigator->VisibleButtons及TDBGrid->Options属性更新的问题

作者注:本文摘自CSDN一个FAQ，回帖人是jishiping，曾经是BCB版的版主，可现在已经辞掉了，我记得以前他在的时候，很多复杂繁琐的问题都有他的回答，而且往往是点睛之笔，很多人受过他的帮助，包括我自己，唉！现在这样的人越来越少了，BCB版的人气也大不如从前，我自己要是碰到什么问题往往都很难在CSDN上解决了，只能硬着头皮啃帮助，无奈自己英文水平又不高，往往看的成斗鸡眼也不能解决问题！苦恼，还好现在学了点点Object Pascal语法，有时看看VCL的源码收获还颇多，虽然才看到冰山一角而已，可已经发觉得VCL的高深之处，真不明白那些人都投奔.net了，其实.net只不过是VCL的另一个版本，因为它们都是同一个人设计的嘛（好像叫Anders Hejlsberg，Borland的创始人之一，Delphi产品和.net的Architect，传奇人物），不知道这些人怎么想的，嗯！有盲目崇拜之嫌疑！说的都是玩笑话，谁叫Microsoft是老大呢，不能引领潮流，那就随波逐流吧，说不定那天我也得转了。
//--------------------FAQ------------------------------

BCB里面的属性，改变它们的值时，大多数情况下都需要调用相关的函数。比如这儿：

__property TButtonSet VisibleButtons = {read=FVisibleButtons, write=SetVisible, default=1023};

当你读取属性VisibleButtons时，它直接访问变量FVisibleButtons，给他赋值时就调用函数SetVisible。如果你直接写成 DBNavigator1->VisibleButtons >> nbPost; 的话，就是直接修改class中的变量FVisibleButtons，因为没有赋值符号，因而没有调用SetVisible这个函数。所以属性的值发生变化了，但是它没有调用相关的函数来真正显示/隐藏那些按钮。所以必须写成

DBNavigator1->VisibleButtons = DBNavigator1->VisibleButtons >> nbPost;

这样才会调用SetVisible这个函数。
但是需要注意，对于其他的控件的一些属性，即使是上面的写法，虽然会发生函数调用，
但是可能还是无法看到效果。比如TDBGrid的Options属性，如果还是使用：

DBGrid1->Options = DBGrid1->Options >> dgEditing;

你就会发现根本不起作用。原因是什么呢？首先我们来看看他的定义：

__property TDBGridOptions Options = {read=FOptions, write=SetOptions, default=3325};

这样一看，你会发现它的定义，和上面的VisibleButtons一样啊，怎么就不行了呢？这个还需要看看源程序中TDBGrid的SetOptions的代码：

procedure TCustomDBGrid.SetOptions(Value: TDBGridOptions);
const
LayoutOptions = [dgEditing, dgAlwaysShowEditor, dgTitles, dgIndicator,
dgColLines, dgRowLines, dgRowSelect, dgAlwaysShowSelection];
var
NewGridOptions: TGridOptions;
ChangedOptions: TDBGridOptions;
begin
if FOptions <> Value then
begin
NewGridOptions := [];
if dgColLines in Value then
NewGridOptions := NewGridOptions + [goFixedVertLine, goVertLine];
if dgRowLines in Value then
NewGridOptions := NewGridOptions + [goFixedHorzLine, goHorzLine];
if dgColumnResize in Value then
NewGridOptions := NewGridOptions + [goColSizing, goColMoving];
if dgTabs in Value then Include(NewGridOptions, goTabs);
if dgRowSelect in Value then
begin
Include(NewGridOptions, goRowSelect);
Exclude(Value, dgAlwaysShowEditor);
Exclude(Value, dgEditing);
end;
if dgEditing in Value then Include(NewGridOptions, goEditing);
if dgAlwaysShowEditor in Value then Include(NewGridOptions, goAlwaysShowEditor);
inherited Options := NewGridOptions;
if dgMultiSelect in (FOptions - Value) then FBookmarks.Clear;
ChangedOptions := (FOptions + Value) - (FOptions * Value);
FOptions := Value;
if ChangedOptions * LayoutOptions <> [] then LayoutChanged;
end;
end;

注意，上面的代码，首先是一个判断语句 if FOptions <> Value then，就是说参数Value 的值和原来的 FOptions 不同时才会执行下面的代码。但是如果你使用下面的写法时：

DBGrid1->Options = DBGrid1->Options >> dgEditing;

编译器实际上将它扩展为：

DBGrid1->SetOptions(DBGrid1->FOptions >> dgEditing);

实际上首先执行 DBGrid1->FOptions >> dgEditing，此时它改变的就是 DBGrid1->FOptions 的值，然后将 DBGrid1->FOptions 作为参数，去执行函数 SetOptions 的代码。这样在这个函数 SetOptions 中，参数Value的值就等于原来的FOptions，所以就会不执行后面的代码，造成了属性Options的值改变了，但是真正的效果却没有实现。此时就一定要使用一个临时变量才可以，比如：

TDBGridOptions Options = DBGrid1->Options;
DBGrid1->Options = Options >> dgEditing;

下面再看看TDBNavigator的函数SetVisible的源代码：

procedure TDBNavigator.SetVisible(Value: TButtonSet);
var
I: TNavigateBtn;
W,H: Integer;
begin
W := Width;
H := Height;
FVisibleButtons := Value;
for I := Low(Buttons) to High(Buttons) do
Buttons[I].Visible := I in FVisibleButtons;
SetSize(W, H);
if (W <> Width) or (H <> Height) then
inherited SetBounds (Left, Top, W, H);
Invalidate;
end;

这儿，程序没有检查参数Value的值是否和原来的值FVisibleButtons是否相同，所以上面的回复中的写法就没有问题。所以在BCB里，给属性赋值时，有时是需要小心的。使用临时变量的写法，总是可以的。而上面一个回复中的写法，有时可以有时却不可以。