Fenster kann nicht mehr minimiert werden

[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