我采用如下方式动态生成了一些控件,并且添加了一个Click事件,当点击时控件会在红色和无色之间转换,我现在要选取变成红色控件的Text,也就是同时要确定我选中了哪个控件.
   请问如何操作,谢谢!
for k:=1 to p do
    begin
    for i:=0 to q do
      begin
       with TEdit.create(self) do
       begin
         Parent:=ScrollBox1;
         top:=20+(i div 10)*32+totalline*32;
         left:=50+70*(i mod 10);
         width:=60;
         ReadOnly:=True;
         Cursor:=crArrow;
         if i<9 then
            Text:=IntTostr(k)+'0'+inttostr(i+1)
         else 
            Text:=IntTostr(k)+inttostr(i+1);
         Visible:=True;
         hint:='动态生成的控件';
         showhint:=true;
         OnClick:=MyClick;
       end;
    linenum:=(i div 10);
    Totalline:=Totalline+linenum;
end;