TpageControl不能在FormCreate设置ActivePage
procedure TfrmRec.FormCreate(Sender: TObject);
begin
if FlagRec=0 then
pageRec.ActivePage:=InQueue
else if FlagRec=1 then
pageRec.ActivePage:=keep
else if FlagRec=2 then
pageRec.ActivePage:=listened
else if FlagRec=3 then
pageRec.ActivePage:=unHandled;
end;
FormActive事件中设置pageRec.ActivePage也看不到效果
[解决办法]
pageRec.ActivePageIndex:=n;试试