Fenster minimieren

[Stephan Puls]

Hallöle,

Wenn ich durch klick auf TImage die Form minimieren will, wie geht das? Ich habe es mit <br>Form1.WindowState := wsMinimized; <br>probiert, aber dann zeigt er mir noch eine verkleinerte Fensterzeile am unteren Bildschirmrand.<br>
<br>
Ausserdem: wenn ich das Programm durch klick auf ein TImage beenden will, schreibe ich einfach<br>
Close;<br>
Gibt es eine saubere Lösung oder können so keine weitere Fehler entstehen?<br>
<br>
Danke, Stephan

[Jens Schumann]

Hallo Stephan,<br>versuchs mal hiermit:<br>
<pre>
<font size="1" face="Verdana">procedure TForm1.Button1Click(Sender: TObject);
begin
SendMessage(Handle,WM_SYSCOMMAND,SC_MINIMIZE,0);
end;</font>
</pre>
Close ist in Ordnung.<br>Jens Schuman

[Grutscha]

Programm beenden:
Application.Terminate wäre eleganter..

Guid

[Mario.Noack]

<b>Application.Terminate</b> sollte eigentlich vermieden werden. Close überprüft noch <b>CloseQuery</b> und ruft <b>Application.Terminate</b> dann noch auf. Anderfalls würde der Code in <b>OnClose</b> einfach nie abgearbeitet.<p>
Grüße, Mario Noac

[Stephan Puls]

Hey, danke für eure Antworten.. )

tschüssi, Stepha