Здравствуйте, хотелось бы задать подобный вопрос пользователя AlexG.
Собственно в чем суть, сделал все также как описано в теме, вариант рабочий, но рабочий до первого сворачивания главного окна, после того, как сворачивается главное окно и после разворачивается через панель задач то появляется дубль этого окна в панели задач. Поясню на скриншотах:
Вот так выглядит на панели задач иконка после запуска приложения:
Вот так она выглядит когда мы свернули приложение:
И вот так она выглядит когда мы делаем клик по иконки на панели задач чтобы развернуть приложение:
Знает кто-нибудь как решить?
Код Project.drp:
begin
Application.Initialize;
Application.CreateForm(TForm2, Form2);
ShowWindow(FMX.Platform.Win.ApplicationHWND, SW_HIDE);
Application.Run;
end.
Код формы:
unit Unit2;
interface
uses
System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs,
FMX.Controls.Presentation, FMX.StdCtrls, Unit3, Winapi.Windows, Winapi.Messages, FMX.Platform.Win, ComObj;
type
TForm2 = class(TForm)
procedure CreateHandle; override;
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form2: TForm2;
implementation
{$R *.fmx}
procedure TForm2.CreateHandle;
begin
inherited CreateHandle;
SetWindowLong(WindowHandleToPlatform(Handle).Wnd, GWL_EXSTYLE,
GetWindowLong(WindowHandleToPlatform(Handle).Wnd, GWL_EXSTYLE) or WS_EX_APPWINDOW);
end;
end.