怎样在同一个函数中分别调用panel1,panel

Question

如：在窗体中放入panel1，panel2二个控件（TPANEL）
请问在同一函数中怎样通过传入参数达到可以控制panel1,panel2的属性。

Answer 1

IF ...THEN
panel1.VISABLE:=TRUE;
panel2.VISABLE:=false;
if ....then
panel1.VISABLE:=false;
panel2.VISABLE:=TRUE;

Answer 2

比如函数体
SetPanelColor()
begin
   panel1.color:=clime;
end;怎样通过传入参数有同一个函数来对PANEL2进行同样的属性设置。

Answer 3

procedure TForm1.Control(Sender: TObject);
begin
  (Sender as TPanel).Color := clred;
end;procedure TForm1.Button1Click(Sender: TObject);
begin
  Control(Panel2);
end;

Answer 4

procedure SetPanelColor(panelname:tpanel);
begin
   panelname.color:=clime;
end;

Answer 5

procedure ResetPanel(APanel: TPanel);
begin
  APanel.Color := clRed;
  ...
end;

Answer 6

Procedure SetPanel(PanelObj:TPanel);
Begin
  PanelObj.xx:=??;
End;

Answer 7

procedure SetPanelColor(panel1:TPanel);
begin
   panel1.color:=clBlue;
end;