目前遇到的問題是這樣的，通常商用軟體打開Form時，會需要針對Form上的各物件統一風格。大致上的做法是跑迴圈掃該Form上所有的Component。 假設要一併定義所有WinControl的Font.Size，這些物件可能包括TPageControl、TLabel、等。 變成需要不少判斷式 ... if Component[i] is TPageControl then ..... if Component[i] is TLabel then ..... etc... 這些物件的父代都來自，TControl，有沒有方法可以取用TControl的Font呢？ 可以的話說不定就可以只需要寫一行就好了 if Component[i] is TControl then .....

In your unit define a cheating class, e.g.    TCheatControl = class (TControl);    then    TCheatControl(AControl).Font.....    Perhaps you could take a look at RTTI instead of the above trick, i.e. TypInfo.pas.    http://pywong.hk.st http://www.lazybones.ca

插个花：

procedure TForm1.Button1Click(Sender: TObject);
var
  i:integer;
begin
for i:= 0 to ComponentCount-1 do
  if Components[i] is TControl then
    with TControl(Components[i]) do
      Font.Size:=14;
end;

~~~静心养德~~~

感謝二位前輩解答 :) 因為威廉兄較先回答，所以解題給威廉兄，請deity兄別見怪。

請問如果要判斷Form上面的元件是否含有ImeMode屬性,是否可以像樓上依樣簡潔的寫法?

引言: 請問如果要判斷Form上面的元件是否含有ImeMode屬性,是否可以像樓上依樣簡潔的寫法?

if GetPropInfo(Obj,'ImeMode')=nil then ShowMessage('Not Obj'); 註： 在Control下有個ParentFont屬性..即可参考Parent的Font屬性!!例.. Form1下有Edit1,Edit2... 只要設 Form1.Font.Size:=12; 即可修改Edit1,Edit2的Size.