求，动态生成控件代码

Question

求在PannelControl上动态生成TabSheet，而且还要在TabSheet,动态生成Timage,可以指定Timage的位置。

Answer 1

var
  tab:TTabSheet;
  img:TImage;
begin
  tab := TTabSheet.Create(PageControl1);
  tab.PageControl := PageControl1;
  tab.Caption := '第一个';
  img := TImage.Create(tab);
  img.Left := 20;
  img.Top := 10;
  tab.InsertControl(img);
end;

Answer 2

1.分別create tabsheet和image(create後指定其位置top,right...);
2.最後記得free...