UniPageControl

[MVakili]

I dynamically create all the pages... The problem I have is that I can't navigate between these pages.

[Naina DDK]

Please check UniGUI Demo (Dynamic Form)  it has sample code to create dynamic objects.

You need make Parent and object Name are proper.

 

 

 

[MVakili]

39 minutes ago, Naina DDK said:

Please check UniGUI Demo (Dynamic Form)  it has sample code to create dynamic objects.

You need make Parent and object Name are proper.

 

 

 

Thank you for your explanation
I have created dynamics, but I don't know why the flash hides in the corner to move in the sheets

[Sherzod]

Hello @MVakili

Can you make a simple testcase to check?

[MVakili]

1 minute ago, Sherzod said:

Hello @MVakili

Can you make a simple testcase to check?

Hi @Sherzod

It's really hard to make a simple testcase
Because this is part of a big project
But this is how it works
1- I have a static one that looks like this

 object CFPageControl: TUniPageControl
        AlignWithMargins = True
        Left = 3
        Top = 3
        Width = 840
        Height = 383
        Hint = ''
        Align = alClient
        TabOrder = 0
        OnChange = FileView
        ExplicitLeft = 0
        ExplicitTop = 0
        ExplicitWidth = 846
        ExplicitHeight = 389
      end

2- I create a tab for each sub-page, and its order is as follows

        With DM.VTsqlCommands Do
           Begin
.....................
              first;
              while Not Eof do
                  Begin
                     EngTName := Dmt.Reg_TableName(FieldByName('CSqlCmd').AsString);
                     F:=False;
                     With CFPageControl Do
                     for I := 0 to PageCount-1 do
                         if Pages[I].Name=EngTName then
                            F:=True;

                     if Not F then
                        Begin
.....................

                                       TabSheet := TUniTabSheet.Create(CFPageControl);
                                       TabSheet.PageControl := CFPageControl;
                                       TabSheet.Name :=  Trim(EngTName);
                                       TabSheet.Caption :=  FieldByName('Titr').AsString;;
                                       TabSheet.Hint := FieldByName('CSeq').AsString;
                                    End;
                              End;
                        End;
                     Next;
                  End;

Things I checked:
1- set pagecontrol Margins, which finally got better but was not resolved
2- I deleted the CSS, but it didn't change
3- I set RTL to false , but it didn't make a difference

[Sherzod]

6 hours ago, MVakili said:

It's really hard to make a simple testcase
Because this is part of a big project

Can you just copy some of the code and create a simple testcase !?

[MVakili]

I tried but there is no problem in testcasePPag.rar

[Sherzod]

15 minutes ago, MVakili said:

I tried but there is no problem

Hello,

Once again please, what is not working for you?
Perhaps you have custom css that is causing it to work incorrectly?!

[MVakili]

Thank you for your follow up
Yes, it may be because of CSS
It is possible to write a simple CSS for me
It is possible that I have used the wrong item in my instructions due to unfamiliarity with internal names
In the submitted example, I tried to include the related CSS but the problem does not occur