AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

Form ohne Taskleisten-Button

Ein Thema von Helmi · begonnen am 20. 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

Form ohne Taskleisten-Button

  Alt 20. Jan 2006, 18:28
Hallo,

ich erzeuge mit diesem Code ein Fenster (testweise):
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
  f: TForm;

begin
  f := TForm.CreateParented(getdesktopwindow);

  f.Top := 200;
  f.Left := 200;
  f.Height := 200;
  f.Width := 200;

  f.Caption := 'Fenster';
  f.Show;
end;
Wenn diese neue Form angezeigt wird, wird Diese in der Taskleiste mit einem Button dargestellt.

Codes für das Ausblenden von Applicationen in der Taskleiste gibts ja genügend (z. B. Diesen ) - nur will ich ja nicht die gesamte Application aus der Taskleiste ausblenden, sondern nur diese eine, speziell erzeugte (getdesktopwindow) Form.
mfg
Helmi

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

Registriert seit: 11. Jul 2005
1.016 Beiträge
 
Delphi 6 Personal
 
#2

Re: Form ohne Taskleisten-Button

  Alt 20. Jan 2006, 18:31
Dann nimm doch diesen Code, aber statt Application.Handle F.Handle.

Gruß,
ManuMF
Gruß,
ManuMF

Endlich hab ich was Positives an Vista entdeckt: Das mitgelieferte Mahjongg
  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: Form ohne Taskleisten-Button

  Alt 20. Jan 2006, 18:40
Zitat von ManuMF:
Dann nimm doch diesen Code, aber statt Application.Handle F.Handle.

Gruß,
ManuMF
bringt leider nichts
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
 
#4

Re: Form ohne Taskleisten-Button

  Alt 20. Jan 2006, 18:45
Muss es aber . Auszug aus meinem "Bounce and Fall":
Delphi-Quellcode:
procedure TBlobForm.FormShow(Sender: TObject);
begin
  // Setzt Fenster an die vorderste Front
  SetWindowPos(Handle, HWND_TOPMOST, Left, Top, Width, Height,
    SWP_NOACTIVATE or SWP_NOMOVE or SWP_NOSIZE);
  // Setzt Parent auf den Desktop
  SetWindowLong(Handle, GWL_HWNDPARENT, 0);
  // Versteckt das Fenster in der Taskleiste
  SetWindowLong(Handle, GWL_EXSTYLE,
    GetWindowLong(Handle, GWL_EXSTYLE) or
    WS_EX_TOOLWINDOW and not WS_EX_APPWINDOW);
end;
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
 
#5

Re: Form ohne Taskleisten-Button

  Alt 20. Jan 2006, 18:47
Hallo,

wenn ich den Code vom meinem Link oben in das OnShow der erzeugten Form tu, dann funktionierts. Ist Dieser aber im OnCreate (so wie in dem Code ersichtlich) funktioniert ned!

Trotdem Vielen Dank für die Hilfe!
mfg
Helmi

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

Registriert seit: 23. Feb 2005
Ort: Kaiserslautern
279 Beiträge
 
Delphi 2009 Enterprise
 
#6

Re: Form ohne Taskleisten-Button

  Alt 20. Jan 2006, 18:51
Das "Problem" hatte ich auch mal. Aber es ist ja eigentlich relativ klar, dass man ein Ding erst verstecken kann, wenn es existiert.
Es gibt nur sehr wenige Probleme auf dieser Welt, die sich nicht mit einigen hundert Gramm Sprengstoff lösen ließen.
  Mit Zitat antworten Zitat
Benutzerbild von Helmi
Helmi

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

Re: Form ohne Taskleisten-Button

  Alt 20. Jan 2006, 19:20
Zitat von hanselmansel:
Das "Problem" hatte ich auch mal. Aber es ist ja eigentlich relativ klar, dass man ein Ding erst verstecken kann, wenn es existiert.
ein Versuch wars wert
mfg
Helmi

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

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

Re: Form ohne Taskleisten-Button

  Alt 20. Jan 2006, 20:17
Jetzt muss ich das Thema nochmal aufgreifen.

In meinem Projekt kann es sein, dass die MainForm beim Starten nicht sichtbar ist.
Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
begin
  Application.ShowMainForm := false;
end;
Durch eine Procedure (im Testbeispiel durch einen Timer verwirklicht) wird dann die neue Form erzeugt.

In dieser Situation wird, trotz dem Code fürs Ausblenden des Taskbar-Buttons im OnShow der neuen Form, der TaskBar-Button angezeigt.

Wie kann man dies verhindern?

P.S.: Anbei mein Testbeispiel. Startet die Echse, nach 2 sek wird die neue Form angezeigt.
Angehängte Dateien
Dateityp: zip test_getdesktopwindow_127.zip (201,0 KB, 4x aufgerufen)
mfg
Helmi

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

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

Re: Form ohne Taskleisten-Button

  Alt 21. Jan 2006, 18:17
weiss jemand warum das obrige nicht geht, wenn die mainform beim starten nicht sichtbar ist?
mfg
Helmi

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

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

Re: Form ohne Taskleisten-Button

  Alt 22. Jan 2006, 11:05
Ich hab jetzt selbst eine Lösung gefunden. Ich finde sie aber nicht sehr schön:

Delphi-Quellcode:
procedure TForm1.OnFShow(Sender: TObject);
begin
  with f 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;

  If not Application.MainForm.Visible then
    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;
    end;
end;
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:32 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