请教！动态生成的Edit点击时如何让他变换颜色？

Question

我想动态生成几个Edit控件，然后让它被点击时在两种颜色间转换。同时再对应其中一种颜色做一些相应的处理，请教各位该怎么处理！？？
多谢了！！

Answer 1

在以下事件处理
procedure TForm1.Edit1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
..................
end;

Answer 2

谢谢，我不是用鼠标点击而动态生成的，而是动态生成到一个Panel上，然后对Panel上的Edit进行操作！！

Answer 3

先在edit创建时写
spedit[i].click:=mydefaultclick;procedure mydefaltclick(sender:tobject);
var i:integer;
begin
  for i:=o to max do
  if sender=spedit[i] then
     //your source
  else
  en;

Answer 4

Edit1.OnClick(Sender) := YouWantProcedure;