Programm wird nicht richtig minimiert

[TheMiller]

Hey Leute,

ich nehme beim Start mein Programm aus der Taskleiste. Dann trage ich ein TNA-Symbol ein und dann minimiere ich es. Man sieht unten links in der Ecke, dass es minimiert ist. Das soll aber weg.

Wie mache ich das??

[Nicodius]

das habe ich auch schonmal gehabt

bitte post den QC

[TheMiller]

Das ist alles im OnCreate:

Delphi-Quellcode:

  h := GetSystemMenu(Handle, FALSE);
  if (h <> 0) then
    DeleteMenu(h, SC_CLOSE, MF_BYCOMMAND);

  TaskBarAddIcon;
  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 );

Dann minimiere ich das Formular und es sieht dann so wie im Bild aus.

Habe aber kein Actionmanager auf dem Formular! Sollte ich einen haben?

[bigg]

Code:

Application.Minimize

könnte da ganz nützlich sein :mrgreen:

[TheMiller]

Nein, sie soll sich ja nciht automatisch minimieren, sondern nur dann, wenn der User auf das "_" zeichen in der Titelleiste klickt. Und dann aber richtig weg sein...

[Dakuba]

Delphi-Quellcode:

procedure TForm1.WMSysCommand(var Message: TWMSysCommand);
begin
  if Message.CmdType and $FFF0 = SC_MINIMIZE then
  begin
    Hide;
     Shell_NotifyIcon(NIM_DELETE, @IconData);
  end
  else
    inherited;
end;

Probier mal das(hoffe ich habs richtig verstanden)

[DymonD]

Hi,
ich habe das selbe Problem: Ich habe eine mehrfenstrige Anwendung, und wenn ich ein Fenster minimiere, wandert das auch genauso runter am Desktop... siehe Anhang

Gruß, Dima

[MathiasSimmack]

Ich verweise mal auf den Beitrag von gestern.