Fenster kann nicht mehr minimiert werden

[Alois]

Ich benutze in meinem Programm eine Funktion, die nur einen Programmstart zulässt.
Desweiteren übergibt die Zweite Programm Instanz die Parameterzeile an die Erste Instanz.

Damit man davon auch was mitbekommt wenn das Programmfenster der Ersten Instanz verdeckt oder
gar minimiert ist... rufe ich das Fenster mit folgenden Code auf:

Delphi-Quellcode:

BringWindowToTop(wnd);
ShowWindow(wnd,SW_SHOWNORMAL);
SetForeGroundWindow(wnd);

Leider hat dies folgenden Nebeneffekt: Solange ich keine Zweite Instanz starte, kann ich das Fenster
minimieren. Rufe ich die Zweite Instanz (mit besagten Programmcode) auf, erscheint die Erste Instanz
zwar im Vordergrund, aber ab jetzt kann ich das Fenster nicht mehr minimieren.

Hat jemand eine Idee??

Gruss Alois

[RavenIV]

haben nicht "BringWindowToTop(wnd);" und "SetForeGroundWindow(wnd);" den selben effekt, dass das Fenster im Vordergrund ist?
lass doch mal einen von beiden Befehlen weg.

gruessle

[Alois]

Mein Problem scheint die Anweisung ShowWindow(wnd,SW_SHOWNORMAL); zu sein. Sobald ich diese Zeile entferne, kann ich das Fenster wieder minimieren. Aber... das aufpoppen wenn das Fenster minimiert ist funktioniert
dann auch nicht mehr.

Heul

Gruss Alois

[Alois]

Habe gerade gesehen das da jemand das gleiche Problem hat(te)? Link
Eine Lösung steht leider nicht dabei. Heul

Gruss Alois

[Alois]

Ich habe hier etwas gefunden, was 100%tig funktioniert.

Folgendes ins Programm einfügen:

Delphi-Quellcode:

type 
  TForm1 = class(TForm) 
    { ... } 
  private 
    procedure WMSysCommand(var Message: TMessage); 
      message WM_SYSCOMMAND; 
  end; 


procedure TForm1.WMSysCommand(var Message: TMessage); 
begin 
  if(Message.Msg = WM_SYSCOMMAND) and 
    (Message.wParam = SC_RESTORE) then Application.Restore; 

  inherited; 
end;

und das hier:

Delphi-Quellcode:

BringWindowToTop(wnd); 
ShowWindow(wnd,SW_SHOWNORMAL); 
SetForeGroundWindow(wnd);

mit dem hier ersetzen:

Delphi-Quellcode:

BringWindowToTop(wnd);
SendMessage(wnd, WM_SYSCOMMAND, SC_RESTORE, 0);
SetForeGroundWindow(wnd);

Das war's!! Minimieren geht wieder. Besonderen Dank geht an MathiasSimmack
Gruss Alois