关于PAGECONTROL简单的问题,在线等待中……

dageming 2002-11-14 04:03:57
1 主FORM上有一个PAGECONTROL,其IMAGES属性为IMAGELIST1
2 有N个子FORM,CREATE时自动DOCK到PAGECONTROL上

问:在DOCK到PAGECONTROL后,如何设置每个子FORM——每个TABSHEET——的IMAGEINDEX?如果不设的话都默认为0

谢谢,分给你
...全文
30 4 打赏 收藏 转发到动态 举报
写回复
用AI写文章
4 条回复
切换为时间正序
请发表友善的回复…
发表回复
jefflary 2002-11-14
  • 打赏
  • 举报
回复
可以写得精简一点,但也好不到哪里去
procedure TfrmMapMain.FormShow(Sender: TObject);
var
i:integer;
begin
for i:=0 to pagecontrol3.PageCount-1 do
begin
pagecontrol3.Pages[i].ImageIndex:=10 + i;
end;
dageming 2002-11-14
  • 打赏
  • 举报
回复
我没表达清楚

(问:在DOCK到PAGECONTROL后……)的意思是说在
self.ManualDock(frmMapMain.PageControl3,nil,alClient);
之后应该怎么样?
如果是这样
procedure TfrmMapMain.FormShow(Sender: TObject);
var
i:integer;
begin
for i:=0 to pagecontrol3.PageCount-1 do
begin
case i of
0:pagecontrol3.Pages[i].ImageIndex:=10;
1:pagecontrol3.Pages[i].ImageIndex:=11;
2:pagecontrol3.Pages[i].ImageIndex:=12;
3:;
4:;
5:;
6:;
end;
end;
end;
我觉得傻了点
wweijie 2002-11-14
  • 打赏
  • 举报
回复
错了,是
TabSheet1.imageindex := 0;
TabSheet2.imageindex := 1;
TabSheet3.imageindex := 2;
........
wweijie 2002-11-14
  • 打赏
  • 举报
回复
TabSheet1.imagelist := 0;
TabSheet2.imagelist := 1;
TabSheet3.imagelist := 2;
........


5,379

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧