Issue with tpagecontrol on QT

[snorkel]

I have a app where I dock forms in the tpagecontrol, and in the onclosetabclick event
I do this:

Code: [Select]


var
  aform:tform;
begin
     //free the form
     aform:=tform(mdi_page_control.ActivePage.Controls[0]);
     aform.Close;
end

and it raises a access violation in wincontrol.inc on line 6296 in function TWinControl.GetControl(const Index: Integer): TControl; 

The exception is only raised if it's the last tab in the tabsheet, if I have more than one tab open with the docked form they all close until the last one.


This works fine on GTK2 and in Win32/64.

I am running Lazarus 1.0.2 on Kubuntu.

[zeljko]

open an issue about it and ATTACH VALID EXAMPLE.

[snorkel]

Ok, will do.  Will post it here as well.

Just for kicks I compiled the IDE with QT on windows and the same error is raised there as well.