Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   GUI-Design mit VCL / FireMonkey / Common Controls (https://www.delphipraxis.net/18-gui-design-mit-vcl-firemonkey-common-controls/)
-   -   Delphi Unterschied Form / Application minimieren (https://www.delphipraxis.net/31088-unterschied-form-application-minimieren.html)

Micha R. 4. Okt 2004 09:46


Unterschied Form / Application minimieren
 
Hi,

ich habe eine Anwendung in Delphi 3, die mehrere Forms abwechselnd anzeigt. Keins der Fenster ist MainForm. Beim Minimieren des Programms über die Taskleiste verschwindet das gerade aktuelle Fenster wie gewünscht. Aber: Beim Klicken auf den Minimizebutton des Formulars erscheint es klein über der Taskleiste, die Anwendung bleibt aber aktiv.

Wie kann ist das ändern und evtl. das Minimize des Formulars abfangen und statt dessen application.minimize aufrufen?

Grüße
Micha

Micha R. 5. Okt 2004 08:27

Re: Unterschied Form / Application minimieren
 
Hab's inzwischen gelöst.

Micha

fiasko 5. Okt 2004 09:24

Re: Unterschied Form / Application minimieren
 
Verrätst du uns auch wie? Vielleicht hat ein anderer mal das gleich problem... :stupid:

Micha R. 7. Okt 2004 08:23

Re: Unterschied Form / Application minimieren
 
Aber sicher doch! Hab nur nochmal alles überprüft.

Beim Minimieren der aktuellen Form wird auch die Application minimiert:

Delphi-Quellcode:
procedure TForm1.FormResize(Sender: TObject);
begin
     if WindowState = wsMinimized
        then Application.Minimize;
end;
Jede Form setzt vorher (beim Anzeigen) Application.OnRestore auf eine eigene Routine:

Delphi-Quellcode:
procedure TForm1.FormShow(Sender: TObject);
begin
     Application.OnRestore := Restore;
end;
Beim Restore der Application (also Klick auf die Taskleiste) wird die aktuelle Form wieder maximiert:

Delphi-Quellcode:
procedure TForm1.Restore (sender: tobject);
begin
     WindowState := wsMaximized;
end;
Das war's!

Grüße
Micha


Alle Zeitangaben in WEZ +1. Es ist jetzt 00:35 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz