Das Minimieren des Fensters abfangen

[Popov]

Und zwar geht es um den Dektop-Button in der Quick Launch. Diese Anweisung minimiert alle Fenster, auch eine zweite Taskbar von mir, die eigentlich immer sichtbar sein sollte. Weiß einer was da passiert? Wie gesagt, SC_MINIMIZE ist es in dem Fall nicht.

[himitsu]

SC_...
Von Windows kommen WM_-Nachrichten.

Davon könntest du die Entsprechende abfangen/ignorieren.

[Darlo]

Erst lesen dann antworten...
Die Antwort kannst Du ignorieren, sorry;


####################################
Vielleicht in etwa so:

Code:

procedure TForm.FormResize(Sender: TObject);
begin
if form.windowstate = wsminimized then
  SendMessage(Handle,WM_SYSCOMMAND,SC_MINIMIZE,0);
end;

procedure TForm.MyWM_SYSCOMMAND(var aMsg: TMessage);
begin
  if aMsg.WParam = SC_MINIMIZE then
    Application.Minimize
  else
    inherited;
end;

Gruß

[Popov]

Zitat von himitsu:

SC_...
Von Windows kommen WM_-Nachrichten.

Da steht auch nirgendwo das Wort Message oder Nachricht. Ich meinte die SC_MINIMIZE Konstate der WM_SYSCOMMAND Message. Ich dachte das war ersichtlich.

Zitat:

Davon könntest du die Entsprechende abfangen/ignorieren.

Nun, das ist ja das Problem. Das scheint keine WM_SYSCOMMAND Message zu sein.

@Darlo

Das habe ich in etwa auch so versucht, ohne Erfolg.

[DeddyH]

Das dürfte auch nicht ganz so trivial sein: http://www.mombu.com/microsoft/windo...on-567693.html

[ConnorMcLeod]

Vllt reicht es so indem Du Deine Logik einsetzt:

Delphi-Quellcode:

    procedure WMSysCommand ( Var Message : TWMSysCommand ); message WM_SYSCOMMAND;
    procedure SizeMove (var msg: TWMSize); message WM_SIZE;

-----

procedure TForm1.WMSysCommand ( Var Message : TWMSysCommand );
begin
  inherited;
  case Message.CmdType of
    SC_RESTORE:
      begin
      end;
    SC_MAXIMIZE:
      begin
      end;
    SC_MINIMIZE:
      begin
      end;
  end;
end;

procedure TForm1.SizeMove(var msg: TWMSize);
begin
  inherited;
  case msg.SizeType of
    SIZE_RESTORED : ;
    SIZE_MINIMIZED: ;
    SIZE_MAXIMIZED: ;
    SIZE_MAXSHOW  : ;
    SIZE_MAXHIDE  : ;
  end;
end;

[Popov]

@ConnorMcLeod

Klappt auch nicht. Ich hab in alles was mir einfiel ein Beep-Signal eingebaut, auch in Application.OnMinimize. Alles funktioniert wie es soll, nur nicht denn der Desktopbutton geklickt wird.

Ich gucke mir mal den Link von DeddyH genauer an, auch wenn mein Englisch beschissen ist

[EWeiss]

Zitat:

Und zwar geht es um den Dektop-Button in der Quick Launch

Ich komme damit nicht klar.
Was verstehst du unter Quick Launch?

Meinst du den Button Desktop Anzeigen?
Wenn ja wer sagt dir das hier die Anwendungen Minimiert werden?
Ich möchte das bezweifeln.

Dieser Button schaltet die ZORDER des Desktop.

gruss

[ConnorMcLeod]

Hilft das hier?
Oder das?

[Popov]

Ok, danke Jungs, es hat geklappt.

Zitat von ConnorMcLeod:

Hilft das hier?
Oder das?

Bedingt, wobei ich mit OnDeActivate und OnMinimaze es auch schon versucht habe.

Zitat von EWeiss:

Was verstehst du unter Quick Launch?

Ich meine die Schnellstart-Leiste

Ist zum Mäuse melken. Jahre lang schrieb ich immer "Schnellstart-Leiste". Als Antwort bekam ich: "Hä, was ist eine Schnellstartleiste? Meinst du die Quick Launch?". Schreibe ich Quick Launch... ach, ist egal.

Zitat:

Wenn ja wer sagt dir das hier die Anwendungen Minimiert werden?
Ich möchte das bezweifeln.

Ich eigentlich auch, wobei es optisch nach minimieren aussieht. Spätestes nachdem ich gemerkt habe, dass keine Message ankommt.

Zitat:

Dieser Button schaltet die ZORDER des Desktop.

Das war das Stichwort. Obwohl das Stichwort, der Versuch ConnorMcLeod's Tipp auszuführen und die Kleinigkeit, dass eines meine Programme die im Hintergrund laufen beim Versuch oben blieben, ergab, dass das die Lösung ist:

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  SetWindowPos(Handle, HWND_TOPMOST, Left,Top, Width, Height, SWP_NOACTIVATE or SWP_NOMOVE or SWP_NOSIZE);
  SetWindowLong(Handle, GWL_HWNDPARENT, 0);
end;