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
