跨表單改變所有元件字體大小??? |
答題得分者是:zhouying82
|
sives1227
一般會員 發表:24 回覆:19 積分:8 註冊:2007-10-12 發送簡訊給我 |
|
zhouying82
高階會員 發表:150 回覆:272 積分:189 註冊:2004-03-16 發送簡訊給我 |
你看看,这么写是否满足你的要求,我也是初学者,哈哈
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 ! |
sives1227
一般會員 發表:24 回覆:19 積分:8 註冊:2007-10-12 發送簡訊給我 |
我試了在forma,各拉了一個combobox1裡面寫了formb.combobox2.text:=forma.combobox1.text; 的procedure TFormb.ComboBox
------------------------------------------------------------------------------------------------------ if (sender is Tcontrol) then for I := 0 to formb.ComponentCount - 1 do 我試成功了,這樣就行了,謝謝大大 --------------------------------------------------------------------- 可是,只要改了預設字體或大小,這個程式就沒效果了,怎麼解決呢??
------
學問~學問~學著發問 |
zhouying82
高階會員 發表:150 回覆:272 積分:189 註冊:2004-03-16 發送簡訊給我 |
|
sives1227
一般會員 發表:24 回覆:19 積分:8 註冊:2007-10-12 發送簡訊給我 |
|
無故障
一般會員 發表:17 回覆:69 積分:17 註冊:2004-03-11 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |