nach Wiederherstellen funktioniert Minimieren nicht mehr?

[Thomas Brendel]

Um eine Anwendung in den Vordergrund zu bringen verwende ich unten aufgeführten Code.<br><br>
Nun zu meinem Problem. Nach Ausführung kann man das Fenster nicht mehr minimieren.<br><br>Die Funktionen maximieren und schliessen arbeiten korrekt.
<br>
Wo steckt der Fehler?
<br>
<PRE>
Procedure TForm1.BringEsNachVorne;
var
hWndFenster: hWnd;
begin
if Form1.Visible = false then Form1.visible := true;
hWndFenster := FindWindow('TForm1', nil);
if hWndFenster <> 0 then
begin
PostMessage(hWndFenster,WM_SYSCOMMAND,SC_RESTORE,0 );
SetWindowPos(hWndFenster, hwnd_topmost,0,0,0,0, swp_nomove or swp_nosize);
end
else
ShowMessage('Form1 nicht gefunden');
end;
</PRE>

[Patrick Esche]

Hat nicht unbedingt was mit deinem Problem zu tun, aber statt<br>
<i>if Form1.Visible = false then Form1.visible := true;</i><br>
solltest du schreiben <i>Form1.visible:=true</i&gt

[Mathias Simmack]

Du musst in deiner Form die Message WM_SYSCOMMAND/SC_RESTORE abfangen und dort "Application.Restore" aufrufen. Dann geht´s wieder.

An dem Problem habe ich auch schon mal gesessen. ) Die Forensuche erbringt den Beweis: http://entwickler-forum.de/webx?50@@.ee8c498/33

Gruß

[Thomas Brendel]

Danke, das wars