Delphi TControl 类（ClientWidth和Width区别）（SetEditMode控件是否可见）

1. TControl.ClientWidth与TControl.Width区别
TControl.Width := TControl.ClientWidth + borderWidth + ScrollbarWidth(竖着的哪个);

如果一个控件的BorderStyle :＝ bsNone（即BorderWidth:＝0） 且 ScrollBars 没有竖着的哪个滚动条哪么 TControl.ClientWidth与TControl.Width相等

 

2.在很多時候設計界面的時候,部分控件需要顯示隱藏,或者需要反復設置它們的Enabel屬性.

procedure TFormClass.SetEditMode(Edits: array of Tcontrol; Flag: Boolean);
var i : integer;
begin
   for i := Low(Edits) to High(Edits) do
     Edits[i].Visible := Flag;//此為設置Visible屬性,也可以設置Enable屬性
end;

調用:
SetEditMode([Edit1,Edit2,Label1,Label2,DBGrid1],False);
通過調用后,直接可以實現Edit1,Edit2,Label1,Label2,DBGrid1的Visible屬性設置為False.而不用寫
Edit1.Visible:=false;
Edit2.Visible:=false;
Label1.Visible:=false;
......
這樣冗余的字段.

P.S:個人認為這個函數最好用了.