Fenster dynamisch aus Taskbar raus

[hoika]

Hallo,

ich möchte, dass ein Fenster per Button-Klick aus der Taskbar verschwindet.

c++-Code mit ModofyEx
http://www.codeguru.com/cpp/framewor...ion-button.htm

Delphi-Quellcode:

begin
    ShowWindow(Handle, SW_HIDE);

    SetWindowLong(Application.Handle, GWL_EXSTYLE,
       GetWindowLong(Application.Handle, GWL_EXSTYLE) or WS_EX_TOOLWINDOW);

    ShowWindow(Handle,SW_SHOW);
end;

Klappt nur leider nicht.

Weiss jemand, wie das geht?

Danke

Heiko

[Popov]

Delphi-Quellcode:

procedure HideInTaskbar(AHandle: HWnd; Hide: Boolean);
const
  SW: array [Boolean] of Longword   = (SW_NORMAL, SW_HIDE);
var
  Owner: HWnd;
begin
  {Um den Taskbar-Eintrag des Moduls zu verstecken, muß das
  Applikationsfenster (nicht die MainForm!) unsichtbar gemacht werden.}
  Owner := GetWindow(AHandle, GW_OWNER);
  ShowWindow(Owner, SW[Hide]);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  HideInTaskbar(Handle, True);
end;

[himitsu]

Welches Delphi?

Zwecks Aero-Support seit Vista ist in "aktuelleren" Delphiversionen standardmäßig nicht mehr Application (ein unsichtbares MessageOnlyWindow) in der Taskbar, sondern die Mainform, sonst zeigt die Preview nur "Mist" an.

[Popov]

Delphi 7 in Windows 7, Funktion funktioniert.

[himitsu]

Zitat von Popov:

Delphi 7 in Windows 7, Funktion funktioniert.

Zitat:

"aktuelleren" Delphiversionen

http://docwiki.embarcadero.com/Libra...nFormOnTaskBar
Und das gibt es bestimmt schon mindestens seit 6-7 Jahren.

Und demnach funktioniert Delphi 7 in Win7 doch nicht "richtig", oder was zeigt die Aero-Preview (Aero Peek) oder der Taskswitcher (Win+Tab) bei dir an? Vermutlich nicht den Inhalt der Mainform.
Aber ja, der Code würde genau so, also ohne Änderungen am Code, sogar in neueren Delphis funktionieren, aber das will man doch garnicht.

[hoika]

Hallo,
im Moment noch D2007, soll aber bald XE4 werden.
Vom Ändern von MainFormOnTaskbar wird im Artikel ja abgeraten.

Danke

Heiko

[hoika]

Hallo,

beides hat nicht geklappt.
Aber das hier klappt.

// verstecken
Application.MainFormOnTaskBar := False;
ShowWindow(Application.Handle, SW_HIDE);

// wieder anzeigen
Application.MainFormOnTaskBar := True;
ShowWindow(Application.Handle, SW_SHOW);

Das Verstecken erzeugt einen kleinen Flacker-Effekt,
aber das ist mir egal.

Trotzdem Danke an Euch.


Heiko

[himitsu]

Wenn man das richtige Handle benutzt, dann geht's auch so ...

Delphi-Quellcode:

if Application.MainFormOnTaskBar then
  Application.MainForm.Handle
else
  Application.Handle

Der Code muß auf die Form angewendet werden, welche sich in der Taskbar befindet ... egal welche das ist


Aber bei vorallem bei der MainForm, ist "Hide" nicht immer die beste Idee, sondern eher das Ändern des Fenster-Stils, jedenfalls wenn die Form gleichzeitig oben sichtbar sein soll.