Pagecontrol的页面引用问题？

[senfore]

我一般使用Pagecontrol时，如果要对每一个页面都进行操作的，则必须

if pagecontrolfcp.PageCount > 0 then
for I := PageControlFCP.PageCount - 1 downto 0 do
begin
PageControlFCP.ActivePage := PageControlFCP.Pages[I];
...
end;

这样的格式，但我又希望在执行玩操作后，页面就回复为我原来的当前页面，那么就需要先保存原来的当前页面的Pageindex，然后再使用pageindex:=i这样的方式恢复，但这样难免会造成屏闪，有没有不改变当前页面而直接引用其它页面呢？

[senfore]

up一下

[libra01]

不改变当前页，你可以用Frame, 闪动少一点。

[立志做一个佳娃~]

try tabsheet VCL

[WGYKING]

var
CurrSheet: TTabSheet;
begin
if pagecontrolfcp.PageCount > 0 then begin
for I := PageControlFCP.PageCount - 1 downto 0 do begin
CurrSheet := PageControlFCP.Pages[I];
with CurrSheet do begin
...
end;
end;
end;
end;