2 replies to this topic

[Frank]

Hello,

with the following code i create a NxPagecontrol at runtime:

CODE

    pgMain := TNxPageControl.Create(frmMain);
    with pgMain do
    begin
      Top := 46;
      Left := 3;
      Width := 1133;
      Height := 200;
      Options := [pgBoldActiveTab];
      BackgroundKind := bkTransparent;
      DoubleBuffered := False;
      Name := 'pgMain';
      Parent := frmMain;
    end;

Then i create a bunch of NxTabsheets:

CODE

    for iCnt := 0 to slAcc.Count - 1 do
    begin
      tsSheet := TNxTabSheet.Create(pgMain);

      pgMain.AddPage(tsSheet);
      tsSheet.Visible := True;
      tsSheet.Caption := slAcc[iCnt];
      Edit := TEdit.Create(tsSheet);
      Edit.Parent := tsSheet;
    end;

where slAcc is a Stringlist containing the captions.

The Problem is that the editfields were shown, but not the tabs.

If i click with the mouse in the area where the tabs must be, they appear in a range around the mousecursor (see screenshot).

Any advice?

Regards
Frank

Attached Files

•  screen1.jpg   8.81K   1 downloads

[Boki (Berg)]

Hi Frank,

Please try to add:

CODE

    pgMain.ActivePageIndex := 0;

at the end of procedure.

I hope that this helps.

Best regards

[Frank]

Yes, it helps   


Thank you, Boki.