Fenster wiederherstellen

[Kamil]

Hi,
ich kämpfe schon seid Stunden mit einem sehr einfachen Problem:
falls eine Instanz meines Programms besteht, soll das Fenster der ersten Instanz in den Vordergrund und die neue Instanz beendet werden.
Feststellen ob eine Instanz besteht ist kein Problem.
Das Wiederherstellen funktioniert nicht richtig!

Folgenden Code verwende ich:

Delphi-Quellcode:

  ShowWindow(Handle, SW_RESTORE);
  //SendMessage(Handle, WM_SYSCOMMAND, SC_RESTORE, 0); //Das gleiche Problem wie bei ShowWindow
  SetForegroundWindow(Handle);

Das Fenster wird zwar wiederhergestellt und in den Vordergrund gebracht ABER falls das Fenster minimiert war kann man es nicht mehr minimieren!!! (sowohl über den Minimieren-Knopf, als auch über das Systemmenu.
Erst wenn ich in der Taskleiste das Menu für das Fenster öffne und Wiederherstellen auswähle kann das Fenster wieder minimiert werden.
Was mache ich falsch? Habe Windows XP und Delphi 6 mit allen Updates.

Bin über jeden Tip dankbar!

Gruß,
Kamil

(Habe versucht mit GetWindowPlacement den Status des Fensters auszulesen, aber das Fenster ist entweder SW_NORMAL(auch wenn es minimiert ist) oder SW_MAXIMIZE jedoch nie SW_MINIMIZE)

[Alexander]

Probier mal statt Restore einfach das Flag SW_SHOW.

[Kamil]

Geht auch nicht. Hab schon so ziemlich alle Parameter durchprobiert...

[MathiasSimmack]

Das Problem liegt an der VCL, die Diskussion darüber gab´s vor Jahren schon im Entwicklerforum. Mein Vorschlag war und ist, dass deine Form auf die Nachricht WM_SYSCOMMAND reagieren muss, und im Fall von SC_RESTORE den Befehl

Delphi-Quellcode:

Application.Restore;

aufrufen sollte, dann geht´s wieder:

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;

[Kamil]

Danke schön! Jetzt geht es.
Warum korrigiert das Borland nicht, wenn es das Problem schon seid Jahren gibt?