一个基本概念问题.

Question

比如窗口上有很多的panel,要求在点击一个panel时,颜色产生变化.当然就想调用个过程了.比如 procedure yanshebianhua();
       begin
       *****.color:=clred;//*****就代表是该panel.
       end;
    可是用什么来代替*****呢,是this吗?
    请帮忙解答.

Answer 1

procedure ColorChange(Sender: TObject);
begin
  if  Sender is TPanel then
    (Sender as TPanel).Color := clRed;
end;

Answer 2

procedure TForm1.Panel1Click(Sender: TObject);
begin
  for i:=0 to ControlCount-1 do
    if Controls[i].ClassName='TPanel' then
      TPanel(Controls[i]).Color:=clBtnFace;
  //先恢复所有Panel的颜色
  TPanel(Sender).Color:=clRed;
end;所有Panel的OnClick事件都指向Panel1Click