[UnderMySkin]

On a form with TsPageControl and more than one page try the following:

procedure TForm1.sPageControl1Change(Sender: TObject);
begin
if sPageControl1.ActivePage.Caption = 'sTabSheet2' then
messageDlg('After this message the application hang and donґt move to next tab.', mtInformation, [mbOK],0);
// It works if sSkinManager isn't active but if you use some skin like MacOS2 (internal) it doesn't!
// If you comment the messageDlg-row it also works OK.
end;

The bug is with 6.66 but also some versions lower.

Anyone experience the same?

I'm using Delphi 6 and InfoPower 3000.07

[Support]

This problem is linked with animation of pages changing. Deactivate an animation temporary (SkinManager.AnimEffects.PageChanging.Active := False)
The problem will be solved in the AlphaControls v7 soon.

[Author]

Posts