【求教】如何选择动态生成的控件

Question

基本操作是这样的：
        已经存在一个pagecontrol
        然后动态生成tabsheet
        最后动态生成image，令image的parent等于tabsheet
现在的问题是：
        我可以通过pagecontrol.activepage来选择当前的tabsheet
        但是，如何选择当前tabsheet上面的image呢？
        因为我想对当前tabsheet上面的image进行操作
已有的code如下：
var
  OpenImage : TImage;
  NewTabSheet : TTabSheet;
begin
  NewTabSheet := TTabSheet.Create(self);
  begin
    NewTabSheet.PageControl:=PageControl1;
  end;
  if (OpenPictureDialog1.Execute=true) then
  begin
    OpenImage := TImage.Create(self);
    OpenImage.Picture.LoadFromFile(OpenPictureDialog1.FileName);
    OpenImage.Parent:= NewTabSheet;
  end;
end;
谢谢各位了！

Answer 1

Image可以关联事件处理的
Image.OnClick：＝
与Button的动态建立一样的方法

Answer 2

PageControl.Images:=OpenImage;
TabSheet.ImageIndex:=x;

Answer 3

yzykjh(爱吃子姜的人) 
能说清楚一点吗？
PageControl包含许多pages（tabsheet）
每个tabsheet上面有一个image
那么，PageControl.Image如何确定是哪一个呢？

Answer 4

yzykjh(爱吃子姜的人) 
我试了一下，pagecontrol.image是不行的

Answer 5

楼主用的是D7吗？我怎么没有找到TabSheet这个控件呢？试试用NewTabSheet.Controls[0]看看行不行？

Answer 6

var
  Form1: TForm1;
  OpenImage :TImage;//将OpenImage设成全局的。
implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
var
  NewTabSheet : TTabSheet;
begin
  NewTabSheet := TTabSheet.Create(self);
  begin
    NewTabSheet.PageControl:=PageControl1;
  end;
  if (OpenPictureDialog1.Execute=true) then
  begin
    OpenImage := TImage.Create(self);
    OpenImage.Picture.LoadFromFile(OpenPictureDialog1.FileName);
    OpenImage.Parent:= NewTabSheet;
  end;end;procedure TForm1.Button2Click(Sender: TObject);
begin
  if Assigned(OpenImage) then OpenImage...这里访问
end;
end.

Answer 7

你这种做法是完全没有必要的。
其实可以先将Tabsheet和Image设计好。编程控制Visible属性就好了。

Answer 8

for i ;= 0 to pagecontrol.ControlCount-1 do 
  for j:=1 to tabsheet(pageControl1.controls[i]).controlcount-1 do  
    begin
      if tabsheet(pageControl1.controls[i]).controls[j] is TImage then 
      begin 
        对其操作；
      end;
    end;