Setup TUniPageControl.ActivePage

[kkelchev]

Hi , to all.

Is it possible to set ActivePage for TUniPageControl runtime after application start.

I did this:

 

TMF = class(TUniForm)...

PC : TUniPageControl

 

 

procedure TMF.UniFormCreate(Sender: TObject);
begin

  shNone.TabVisible := False;
  shArticles.TabVisible := False;
  shUsers.TabVisible := False;
  PC.ActivePage := shNone;

end;

 

But this dosn' t woks.

 

 

However at runtime (in the same form ), there is button:

 

procedure TMF.UniBitBtn2Click(Sender: TObject);
begin
  PC.ActivePage := shNone;
end

 

This woks fine !

 

 

[kkelchev]

Sorry I found solution:

 

 PC.ActivePage := shNone;
 PC.TabBarVisible := False;    <-----

 

​Now PC starts with right Sheet