TAdvToolPanelTab issue

VCL TMS VCL UI Pack
1

When a form contains a TAdvToolPanelTab, it is impossible to "insert" this form into another container. It worked well with an old TMS Component Pack (7.9 I guess), but stopped working with the latest one.

Sample:
create two forms: frmMain and frmChid. Place AdvToolPanelTab into frmChid.
write an event for frmMain:

procedure TfrmMain.FormClick(Sender: TObject);
begin
frmChild.Parent := self;
end;

When you click on the frmMain, you will get EListError exception.
Tested in Delphi 10.4

Any idea how to fix it?

2

I cannot see a problem.
Project1.zip (53.2 KB)

I would like to please ask to send a sample source project + steps with which we can reproduce this to take out all the guesswork and loss of time on our side.

3

Thanks for the reply. Your code works because you created a hidden child form and it didn't allocate a handle for AdvToolPanelTab1. Add frm.Visible := True after form creation to reproduce the bug or allocate handle for the tab.

Here is a modified code:

procedure TForm1.Button1Click(Sender: TObject);
var
frm: TForm3;
begin
frm := TForm3.Create(self);
frm.Visible := True;
/// or
// frm.HandleNeeded;
// frm.AdvToolPanelTab1.HandleNeeded;

frm.Parent := self;
.....

4

Update, this code seems to fix the problem, but I'm not sure if it's a good workaround - at least we should also use a hack to set the Handle to zero.

DestroyWindow(frm.AdvToolPanelTab1.Handle);
frm.Parent := self;

5

We implemented a fix that will be included in the next update

6

Great! Can you share the fix now?
Thanks

7

The next release is scheduled for next week.