|
通過這個例子深入了解組件的表示方法,，如何判斷窗體中的組件屬于某類組件（如是否為文本框：is tedit,，如果想讓按鈕灰顯應(yīng)該是if Components[i] is Tbutton吧）。更重要的是通過這個例子我們可以了解組件和容器的關(guān)系：父子關(guān)系
procedure TForm1.Button1Click(Sender: TObject);
var i: integer; begin for i:=0 to ComponentCount-1 do begin if Components[i] is TEdit then begin if TEdit(Components[i]).Parent = Panel2 then TEdit(Components[i]).ReadOnly := True; end; end; end; |
|
|
