Application using Alpha Skins in Delphi 12 shows two program windows on the task

This topic has 2 replies, 2 voices, and was last updated 1 year, 2 months ago by NormAtHome.

Viewing 2 posts - 1 through 2 (of 2 total)

Author

Posts
February 1, 2024 at 5:10 am #71424
Lasse
Participant
I have had the same issue with Delphi 11.3 without AlphaSkins. I think I tackled this by overriding CreateParams…
```
procedure CreateParams(var Params: TCreateParams); override;

procedure TMainBaseForm.CreateParams(var Params: TCreateParams);
begin
  inherited CreateParams(Params);

  with Params do
  begin
    ExStyle := ExStyle and not WS_EX_APPWINDOW;
    WndParent := Application.Handle;
  end;
end;
```
February 23, 2024 at 8:32 pm #71429

NormAtHome
Participant

I had the previous version to 17.10, when I uninstalled that and installed 17.10 the problem disappeared
Author

Posts

Viewing 2 posts - 1 through 2 (of 2 total)

You must be logged in to reply to this topic.