基本操作是这样的:
已经存在一个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;
谢谢各位了!
已经存在一个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;
谢谢各位了!
解决方案 »
- 如何实现小型数据库的开发
- 时间相加减的奇怪代码
- memtable.ApplyUpdates为什么不能将修改写入数据库?计算型字段和lookup字段,如何进行排序和筛选?
- 关于SAVEDIALOG的问题
- 中国龙网络浏览器Beta 1.0版本,今天正式发布 (续我研究 搜索引擎 (五) 浏览器篇)
- 百分求教.用Delphi的查找句柄程序查到一个程序的句柄为'????',该怎么处理?
- 一个字符串的问题
- 面对突如其来的感情难题,兄弟姐妹们,silverwonder有些话想说,同时散分给亲爱的你们!
- 怎么得知DBGRID某一珊格的坐标?
- 告诉我!就请你吃饭
- 奶奶的快看看
- 麻烦看看小弟写的简单读卡程序有没错
Image.OnClick:=
与Button的动态建立一样的方法
TabSheet.ImageIndex:=x;
能说清楚一点吗?
PageControl包含许多pages(tabsheet)
每个tabsheet上面有一个image
那么,PageControl.Image如何确定是哪一个呢?
我试了一下,pagecontrol.image是不行的
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.
其实可以先将Tabsheet和Image设计好。编程控制Visible属性就好了。
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;