假設我有3個 Panel 元件及一個edit 在 form 上, 我希望 依 edit 中的值 來改變 panel 中的顏色..又不想用下面這種 方法 (因為可能會有很多個 panle) 請問各位高手 有其他好 方法 嗎...謝謝.... procedure TForm1.Edit1Exit(Sender: TObject); begin if Edit1.Text = '1' Then Panel1.Color := ClAqua else if Edit1.Text = '2' Then Panel2.Color := ClAqua else if Edit1.Text = '3' Then Panel3.Color := ClAqua; end;

procedure TForm1.Edit1Exit(Sender: TObject);
var
  SL: TStringList;
begin
  SL := TStringList.Create;
  SL.Add('1');
  SL.Add('2');
  SL.Add('3');
  case SL.IndexOf(Edit1.Text) of
    0:  Panel1.Color := ClAqua;
    1:  Panel2.Color := ClAqua;
    2:  Panel3.Color := ClAqua;
  end;
  SL.Free;
end;     

網海無涯，學無止境!

jslucky你好： procedure TForm1.Edit1Change(Sender: TObject); var  I: Integer;  Temp: TComponent; begin   for i:=0 to componentcount-1 do   begin     Temp := Components[I];     if Temp is TPanel then         (Temp as TPanel).Color:=random(35000);       end; end; 试试看 ——行径窄处，留一步与人行——

請問有沒有類似 PANEL(I).CLOLOR 或 panel.(name).color 等..這種可以變動帶入值的 方法..這樣的話如果有30個 panel 就不用寫panel1-panel30 了.....謝謝...

用Tcontrol 比較好吧    var I: Integer; Temp: TControl; begin for i:=0 to ControlCount-1 do  begin   Temp := controls[i];   if Temp is TPanel then   (Temp as TPanel).Color:=random(35000);   end; end; <>~悠遊法國號~

另一種做法     for i:=1 to 30 do   if (form1.FindComponent('Panel'+inttostr(i)) is TPanel) then    begin     (form1.FindComponent('Panel'+inttostr(i)) as Tpanel).Color:=random(3500);    end;    ~悠遊法國號~

我要的是 變動帶入 值.. FindComponent('Panel' EDit1.Text) 正是我要的 這樣一句就可以解決選那個變那個了...謝謝 yachanga ....也謝謝其它各位.. procedure TForm1.Edit1Change(Sender: TObject); begin (FindComponent('Panel' EDit1.Text) as TPanel).Color:=ClAqua; end;