Moin,
kann es sein, dass
Application.MainFormOnTaskbar := False;
seit jetzt/länger einfach ignoriert wird?
Es wird immer die MainForm in der Taskleiste angezeigt.
Leere Testanwendung, nur mit
:= False;
geändert.
In TApplication.SetMainFormOnTaskBar ist zwar noch ein Code drin, aber ich seh in der Taskleiste dennoch immer nur die MainForm.
Aufgefallen war es, weil ich endlich mal versuchen wollte einen generellen Bug der
VCL zu beheben,
unter dem leider auch die Delphi-
IDE leidet.
Beim Programmstart, wenn es ewig dauert und z.B. ein SpalshScrenn angezeigt wird, der beschissender Weise ohne WS_EX_APPWINDOW erstelltt wurde,
oder wenn da eine MessageBox angezeigt wird, z.B. durch eine
Exception oder UpdateMeldung,
dann hängt das Programm unsichtbar im Hintergrund, weil es ja noch nicht aktiv war und auch nicht in der Taskleiste angezeigt wird.
Aktueller Versuch, der nicht geht, weil MainFormOnTaskBar:=False keine Wirkung hat.
Delphi-Quellcode:
program Project2;
uses
Winapi.Windows,
Vcl.Forms,
Unit1
in '
Unit1.pas'
{Form1};
{$R *.res}
type
THiddenHelper =
class
class procedure ActiveFormChange(Sender: TObject);
end;
class procedure THiddenHelper.ActiveFormChange(Sender: TObject);
var
B: Boolean;
begin
B := True;
if (Application.MainFormHandle <> 0)
and IsWindowVisible(Application.MainFormHandle)
and (GetWindowLong(Application.MainFormHandle, GWL_EXSTYLE)
and WS_EX_APPWINDOW <> 0)
then
B := False;
if not B
and Assigned(Screen.ActiveCustomForm)
and Screen.ActiveCustomForm.HandleAllocated
and IsWindowVisible(Screen.ActiveCustomForm.Handle)
and (GetWindowLong(Screen.ActiveCustomForm.Handle, GWL_EXSTYLE)
and WS_EX_APPWINDOW <> 0)
then
B := False;
for var i := Screen.CustomFormCount - 1
downto 0
do
if not B
and Screen.CustomForms[i].HandleAllocated
and IsWindowVisible(Screen.CustomForms[i].Handle)
and (GetWindowLong(Screen.CustomForms[i].Handle, GWL_EXSTYLE)
and WS_EX_APPWINDOW <> 0)
then
B := False;
Application.MainFormOnTaskBar := B;
end;
begin
Application.Initialize;
Application.MainFormOnTaskbar := False;
Screen.OnActiveFormChange := THiddenHelper.ActiveFormChange;
Application.CreateForm(TForm1, Form1);
Application.Run;
end.
Ja, idealder wäre wohl
OnMessage ein Message-Hook und dort auf Fenster WM_SHOW/WM_HIDE der Fenster zu reagieren. (aller Fenster, auch welche nicht zur
VCL gehören)