Здравствуйте, хотелось бы задать подобный вопрос пользователя 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.
Вопрос
Winexcel
Здравствуйте, хотелось бы задать подобный вопрос пользователя 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.
Ссылка на комментарий
3 ответа на этот вопрос
Рекомендуемые сообщения
Присоединяйтесь к обсуждению
Вы можете написать сейчас и зарегистрироваться позже. Если у вас есть аккаунт, авторизуйтесь, чтобы опубликовать от имени своего аккаунта.