Form verschwindet nicht von Taskleiste trotz code !

[dazar_t]

Guten Tag..

Ich Programmiere grade ein Programm ( in Delphi 2007 ) das wärend der Laufzeit immer wieder sein Größe und seinne Sichtbarkeit ändert.

Um eine Form nun von der Taskleiste zu nehmen nehme ich gewöhnlich diesen Code :

Delphi-Quellcode:

  ShowWindow( Application.Handle, SW_HIDE );
  SetWindowLong( Application.Handle, GWL_EXSTYLE,
                 GetWindowLong(Application.Handle, GWL_EXSTYLE) or
                 WS_EX_TOOLWINDOW and not WS_EX_APPWINDOW);
  ShowWindow( Application.Handle, SW_SHOW );

Doch wirkt dieser bei meinem Programm nicht mehr !

Hier mal mein QuellCode :

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
Timer1.Enabled := True;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Form1.Height := Screen.Height;
Form1.Width := 215;
ShowWindow( Application.Handle, SW_HIDE );
SetWindowLong( Application.Handle, GWL_EXSTYLE,
                 GetWindowLong(Application.Handle, GWL_EXSTYLE) or
                 WS_EX_TOOLWINDOW and not WS_EX_APPWINDOW);
ShowWindow( Application.Handle, SW_SHOW );
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
while Not(Form1.Width = 1) do
Form1.Width := Form1.Width - 1;
Form1.Visible := False;
Timer1.Enabled := False;
end;

procedure TForm1.Timer2Timer(Sender: TObject);
begin
Form1.Visible := True;
while Not(form1.Width = 215) do
Form1.Width := Form1.Width + 1;
Timer2.Enabled := False;
end;

procedure TForm1.Timer3Timer(Sender: TObject);
begin
if Mouse.CursorPos.x = Screen.Width - 1 then
Timer2.Enabled := True;
Timer4.Enabled := True;
end;

procedure TForm1.Timer4Timer(Sender: TObject);
begin
if (Form1.Width = 215) and (Mouse.CursorPos.X < Screen.Width - Form1.Width) then
Timer1.Enabled := True;
Timer4.Enabled := False;
end;

procedure TForm1.WMWindowPosChanging(var Message: TWMWINDOWPOSCHANGING);
begin
  Message.WindowPos.y := 0;
  Message.WindowPos.x := Screen.WorkAreaWidth - Width;
end;

end.

EDIT: // Habe grade mal nen TestProjeckt erstellt und gemerkt das der Code garnicht mehr wirkt das Programm bleibt immer in der Taskbar.
Als ich es aber in D7 probierte funktionierte es !???

[VnCoders]

You cannot resize the Form Width to 0 with Form's BorderStyle is bsSizable. You should change it to bsNone.

[dazar_t]

Zitat von VnCoders:

You cannot resize the Form Width to 0 with Form's BorderStyle is bsSizable. You should change it to bsNone.

Hey
That's not the problem. The Form Style is set to bsNone. The Problem is that the form is visible on the taskbar and the Code (what should make the button on the taskbar invisible) doesn't work on D2007 but i've tried it on D7 and there it works..

Sorry for my bad englisch

[toms]

Hallo

Dies versteckt doch auch die Hauptform von der Taskleiste?

ShowWindow(Application.Handle, SW_HIDE); Zudem: Sind wirklich 4 Timer nötig? Überdenke evtl. mal das Programmdesign.

[dazar_t]

Nja die Timer sind inzwischen schon in funktionen "umgewandelt".

Aber der Code : ShowWindow(Application.Handle, SW_HIDE); Funktioniert ebend nicht...(Delphi 2007).
In D7 funktioniert es aber schon.

[SirThornberry]

ich hab die Erfahrung gemacht dass, das Create-Event dafür ein schlechter Platz ist. Denn wenn danach noch ein Recreatewnd aufgerufen wird, so wird das Handle neu alociert und deine Änderungen werden nicht auf das neue Handle übertragen.

[Bernhard Geyer]

Zitat von dazar_t:

Funktioniert ebend nicht...(Delphi 2007).
In D7 funktioniert es aber schon.

Kann das u.U. mit dem geänderten verhalten hidden Application-Form bezüglich Vista-Support zusammenhängen

[dazar_t]

Zitat von SirThornberry:

ich hab die Erfahrung gemacht dass, das Create-Event dafür ein schlechter Platz ist. Denn wenn danach noch ein Recreatewnd aufgerufen wird, so wird das Handle neu alociert und deine Änderungen werden nicht auf das neue Handle übertragen.

Dankeschön habe es jetzt mal versetzt un nun funktioniert es..