Taskleiste: Button fürs Programm wieder anzeigen lassen?

[Helmi]

Hallo,

ich hab folgenden Code um keinen Button in der Taskleiste für ein Programm zu erhalten:

Delphi-Quellcode:

procedure TTrayIcon.OnShow(Sender: TObject);
begin
  with Application do
    begin
      ShowWindow(Handle, SW_HIDE);
      SetWindowLong(Handle, GWL_EXSTYLE, GetWindowLong(Handle, GWL_EXSTYLE) or
                     WS_EX_TOOLWINDOW and not WS_EX_APPWINDOW);
      ShowWindow(Handle, SW_SHOW);
    end;

Nur wie kann ich jetzt den Button auch wieder anzeigen lassen?

[Khabarakh]

WS_EX_APPWINDOW wieder einfügen :wink: ?

[Helmi]

mmh - ich weiss jetzt nicht ob ich das so gemacht habe wie du es meintest:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  with Application do
    begin
      SetWindowLong(Handle, GWL_EXSTYLE, WS_EX_APPWINDOW);
    end;
end;

Jedenfalles funktioniert das nicht

[CalganX]

Hi,
du musst schon die alten WindowLongs mit GetWindowLong wieder verwenden. Außerdem musst du ShowWindow mit WS_SHOW erneut aufrufen (zumindest habe ich das bisher immer so beobachtet).

Chris

[Helmi]

Zitat:

Zitat von Chakotay1308

Hi,
du musst schon die alten WindowLongs mit GetWindowLong wieder verwenden. Außerdem musst du ShowWindow mit WS_SHOW erneut aufrufen (zumindest habe ich das bisher immer so beobachtet).

Chris

Hallo,

danke für den Tip.

Ich habs jetzt so gemacht:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  with Application do
    begin
      ShowWindow(Handle, SW_HIDE);
      SetWindowLong(Handle, GWL_EXSTYLE, GetWindowLong(Handle, GWL_EXSTYLE) or
                     WS_EX_APPWINDOW);
      ShowWindow(Handle, SW_SHOW);
    end;
end;

und so funktionierts! :thumb:

Vielen Dank!