可以写得精简一点,但也好不到哪里去
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;
(问:在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;
我觉得傻了点