想請問各位，我想在form1中寫一個procedure或function，這個procedure或function可以傳入欲修改元件屬性的form名稱(例如form3)，這樣就可以在form3或其他form中直接使用form1的這個procedure或function，該如何做呢?? //只要是TLabel的元件，其字型顏色為黑色 procedure Tfrm_Main.chageFONT(actForm: TForm); var i:integer; begin for i:=0 to actForm.Componentcount-1 do begin if actForm.Components[i].ClassName='TLabel' then actForm.TLabel(actForm.Components[i]).Font.Color := 'clWindowText'; end; end; 程式在這一行出現TLabel未定義 actForm.TLabel(actForm.Components[i]).Font.Color := 'clWindowText'; 可是actForm.Components[i].ClassName抓出來是TLabel啊 還是各位有更好的解法??????

您好: 我改了一下,但不是Function,您要自己在修改一下. procedure TForm1.Button4Click(Sender: TObject); var i:integer; begin for i:=0 to Form1.ComponentCount-1 do begin if Form1.Components[i].ClassName='TLabel' then TLabel(Form1.Components[i]).Font.Color:=clWindowText; end; end; 有兩個地方錯了. 1.Form.TLabel.....這個是錯誤的Components是TForm的屬性才對. 2.clWindowsText是常數值,不是字串. 發表人 - supman 於 2005/06/29 12:01:38

引言: 想請問各位，我想在form1中寫一個procedure或function，這個procedure或function可以傳入欲修改元件屬性的form名稱(例如form3)，這樣就可以在form3或其他form中直接使用form1的這個procedure或function，該如何做呢??

//只要是TLabel的元件，其字型顏色為黑色
procedure Tfrm_Main.chageFONT(actForm: TForm);
var i:integer;
begin 
   for i:=0 to actForm.Componentcount-1 do
     begin
     if actForm.Components[i].ClassName='TLabel' then
       actForm.TLabel(actForm.Components[i]).Font.Color := 'clWindowText';
   end;
end;

改为如下：

procedure TForm1.chageFONT(actForm: TForm);
var
  i:integer;
begin
  for i:=0 to self.Componentcount-1 do
    begin
      if self.Components[i].ClassName='TLabel' then
        TLabel(actForm.Components[i]).Font.Color :=clWindowText;
    end;
end;
本Form的调用
procedure TForm1.Button1Click(Sender: TObject);
begin
  chageFONT(self);//或chageFONT(Form1); self当前父类！
end;
其他Form的调用
procedure TForm2.Button1Click(Sender: TObject);
begin
 Form1.chageFONT(self);//或 Form1.chageFONT(Form2);
end;    

程式在這一行出現TLabel未定義 actForm.TLabel(actForm.Components[i]).Font.Color := 'clWindowText'; 可是actForm.Components[i].ClassName抓出來是TLabel啊 還是各位有更好的解法??????

============================ 为什么经过多年以后，得失的过程如此冷漠 ============================ 發表人 - deity 於 2005/06/29 11:51:09

按照deity的作法，已經可以了 也感謝supman的指導 謝謝

引言: 按照deity的作法，已經可以了 也感謝supman的指導 謝謝

我修正一下，應該這樣才對 procedure TForm1.chageFONT(actForm: TForm); var i:integer; begin for i:=0 to actForm.Componentcount-1 do begin if actForm.Components[i].ClassName='TLabel' then TLabel(actForm.Components[i]).Font.Color :=clWindowText; end; end; 因為用self的話，元件會變成父視窗內的元件