分別為forma,formb,…等等，每個元件的字體大小不盡相同，然後小弟想要做一個combobox(items 可以讓使用者選擇字體的大小，選擇完後forma,formb謝謝回覆。

------
學問~學問~學著發問

你看看，这么写是否满足你的要求，我也是初学者，哈哈

procedure TForm1.ComboBox1Change(Sender: TObject);
var i:integer;
begin
if (sender is Tcontrol) then
for I := 0 to ComponentCount - 1 do
font.Size :=strtoint(combobox1.Text);
end;
在form2方面，直接引用就可以了。不过还是建议你把上述写成一个过程，哈哈。

------
断断续续的学了几年，还是一个初学者，永远支持Delphi !

我試了在forma，各拉了一個combobox1裡面寫了formb.combobox2.text:=forma.combobox1.text; 的procedure TFormb.ComboBox1Change(Sender: TObject);的combobox1的文字也跟著變了，但是好像沒有觸發change裡面的元件，字體也沒變動，所以我請問，程碼要改成什麼才會讓另一張表單也有同樣的效果??下手??
------------------------------------------------------------------------------------------------------

if (sender is Tcontrol) then
for I := 0 to formb.ComponentCount - 1 do
我試成功了，這樣就行了，謝謝大大
---------------------------------------------------------------------
可是，只要改了預設字體或大小，這個程式就沒效果了，怎麼解決呢??

------
學問~學問~學著發問

編輯記錄

不用改代码啊？你在PUBLIC里面定义一个函数，并在FORM1中，uses form2就可以了啊，还有关于COMBOBOX的，你只要把其中的style属性设置csDropDownList为就可以了。

------
断断续续的学了几年，还是一个初学者，永远支持Delphi !

大大，元件的預設font  的 name 為MS Sans Serif ，size為8
我把其中一個元件的字型改為新細明體，size為12後，就無法用程碼控制改字型的那個元件的字體大小了，
這樣有辦法去改變已經改字型的那個元件的字體大小了嗎??

------
學問~學問~學著發問

每個畫面內的元件,包含 Form 內,都有一個參數 ParentFont ,請設定為 False


===================引 用 sives1227 文 章===================
大大，元件的預設font 的 name 為MS Sans Serif ，size為8
我把其中一個元件的字型改為新細明體，size為12後，就無法用程碼控制改字型的那個元件的字體大小了，
這樣有辦法去改變已經改字型的那個元件的字體大小了嗎??

------
嘿嘿嘿