[Gregory.P]

Problem Form Activate If SkinManager Active : Form N°1 no visible

Project1.dpr :

Code:

program Project1;

uses
Vcl.Forms,
Unit1 in 'Unit1.pas' {Form1};

{$R *.res}

begin
Application.Initialize;
Application.MainFormOnTaskbar := True;
Application.CreateForm(TForm1, Form1);
Application.Run;
end.

Unit1.pas :

Code:

implementation

uses Unit2;

{$R *.dfm}

procedure TForm1.FormActivate(Sender: TObject);
begin
Form2 := TForm2.Create(Application);

if Form2.ShowModal = mrCancel then
Application.Terminate;
end;

[attachment=8056:Form Activate.zip]

SkinManager Active : True 😐

[attachment=8054:1.gif]

SkinManager Active : False :a3:

[attachment=8055:2.gif]

thank you

[Support]

I will try to fix it in the nearest release. But animation of form showing must be deactivated in this case.

[Gregory.P]

'Support' wrote:

I will try to fix it in the nearest release. But animation of form showing must be deactivated in this case.

Problem solved –> TApplicationEvents Activate Form

Code:

procedure TForm1.ApplicationEvents1Activate(Sender: TObject);
begin
Form2 := TForm2.Create(Application);

if Form2.ShowModal = mrCancel then
Application.Terminate;
end;

Animation Form no Problem :a3:

[attachment=8065:Code.zip]

[Author]

Posts