AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein GUI-Design mit VCL / FireMonkey / Common Controls Delphi Taskleiste: Button fürs Programm wieder anzeigen lassen?
Thema durchsuchen
Ansicht
Themen-Optionen

Taskleiste: Button fürs Programm wieder anzeigen lassen?

Ein Thema von Helmi · begonnen am 22. Jan 2006 · letzter Beitrag vom 22. Jan 2006
Antwort Antwort
Benutzerbild von Helmi
Helmi

Registriert seit: 29. Dez 2003
Ort: Erding, Republik Bayern
3.336 Beiträge
 
Delphi XE2 Professional
 
#1

Taskleiste: Button fürs Programm wieder anzeigen lassen?

  Alt 22. Jan 2006, 12:20
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?
mfg
Helmi

>> Theorie ist Wissen, dass nicht funktioniert - Praxis ist, wenn alles funktioniert und keiner weiss warum! <<
  Mit Zitat antworten Zitat
Benutzerbild von Khabarakh
Khabarakh

Registriert seit: 18. Aug 2004
Ort: Brackenheim VS08 Pro
2.876 Beiträge
 
#2

Re: Taskleiste: Button fürs Programm wieder anzeigen lassen?

  Alt 22. Jan 2006, 12:43
WS_EX_APPWINDOW wieder einfügen ?
Sebastian
Moderator in der EE
  Mit Zitat antworten Zitat
Benutzerbild von Helmi
Helmi

Registriert seit: 29. Dez 2003
Ort: Erding, Republik Bayern
3.336 Beiträge
 
Delphi XE2 Professional
 
#3

Re: Taskleiste: Button fürs Programm wieder anzeigen lassen?

  Alt 22. Jan 2006, 12:54
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
mfg
Helmi

>> Theorie ist Wissen, dass nicht funktioniert - Praxis ist, wenn alles funktioniert und keiner weiss warum! <<
  Mit Zitat antworten Zitat
CalganX

Registriert seit: 21. Jul 2002
Ort: Bonn
5.403 Beiträge
 
Turbo Delphi für Win32
 
#4

Re: Taskleiste: Button fürs Programm wieder anzeigen lassen?

  Alt 22. Jan 2006, 13:10
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
  Mit Zitat antworten Zitat
Benutzerbild von Helmi
Helmi

Registriert seit: 29. Dez 2003
Ort: Erding, Republik Bayern
3.336 Beiträge
 
Delphi XE2 Professional
 
#5

Re: Taskleiste: Button fürs Programm wieder anzeigen lassen?

  Alt 22. Jan 2006, 13:14
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!

Vielen Dank!
mfg
Helmi

>> Theorie ist Wissen, dass nicht funktioniert - Praxis ist, wenn alles funktioniert und keiner weiss warum! <<
  Mit Zitat antworten Zitat
Antwort Antwort


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 06:35 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz