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:個人認為這個函數最好用了.