XE2 Form bleibt schwarz nach UAC Abfrage

[hathor]

1. entfernen

Delphi-Quellcode:

procedure TForm1.FormActivate(Sender: TObject);
begin
Form1.Recreate;
end;

2. Ändern

Delphi-Quellcode:

program BlackScreenTest;
{$R BlackScreenTest.REC}  //einfügen

uses
  FMX.Forms,
  uniFrmStart in 'uniFrmStart.pas' {Form1};

{$R *.res}

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

3. Anhang (BlackScreenTest.REC) ins Programmverzeichnis einfügen