FormCloseQuery FormShowing abfrage

[DeddyH]

Könnte man nicht einfach Screen.FormCount abfragen?

[Sir Rufo]

Diese MainForm prüft alle (mit Application als Owner) Formulare, ob diese sich schließen können.

Mit der Property CloseForce kann man das Schliessen erzwingen (was beim Abmelden/Herunterfahren -> WM_ENDSESSION auch gemacht wird).

Delphi-Quellcode:

unit frmMain;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class( TForm )
    procedure FormCloseQuery( Sender : TObject; var CanClose : Boolean );
    procedure FormCreate( Sender : TObject );
  private
    FCloseForce : Boolean;
  protected
    procedure WMEndSession( var message : TWMEndSession ); message WM_ENDSESSION;
  public
    property CloseForce : Boolean
      read   FCloseForce
      write  FCloseForce;
  end;

var
  Form1 : TForm1;

implementation

uses
  frmData;

{$R *.dfm}

procedure TForm1.FormCloseQuery( Sender : TObject; var CanClose : Boolean );
var
  idx : Integer;
begin
  if not CloseForce
  then
    for idx := 0 to Application.ComponentCount - 1 do
      if ( Application.Components[idx] <> Self ) and ( Application.Components[idx] is TForm )
      then
        CanClose := CanClose and TForm( Application.Components[idx] ).CloseQuery;
end;

procedure TForm1.FormCreate( Sender : TObject );
begin
  CloseForce := False;
end;

procedure TForm1.WMEndSession( var message : TWMEndSession );
begin
  inherited;
  CloseForce := True;
end;

end.

[Capa]

oO wieso sollte ich das den erzwingen wollen der user soll doch das programm solange nicht schliessen können
bis alle forms geschlossen sind, wenn ich das nun erzwinge is doch das ganze was ich damit versuche zu erreichen
zwecklos oder seh ich das falsch ?

[Sir Rufo]

Zitat von Capa:

oO wieso sollte ich das den erzwingen wollen der user soll doch das programm solange nicht schliessen können
bis alle forms geschlossen sind, wenn ich das nun erzwinge is doch das ganze was ich damit versuche zu erreichen
zwecklos oder seh ich das falsch ?

Du kannst, musst aber nicht.

Wird der Rechner heruntergefahren, dann blockiert das Programm dieses nicht!

[MGC]

Also, mir gefällt Sir Rufos Ansatz sehr gut. Wieso sollte man auch den User damit beschäftigen jedes untergeordnete Form händisch zu schließen anstatt dies zu automatisieren und über deren Form.CloseQuery die Möglichkeit zum Speichern der Daten anzubieten.
Du, kannst ja das CloseForce noch ein wenig erweitern und eine Zeitspanne vorgeben innerhalb der ein User die Daten noch speichern kann, bevor das Schließen beim Herunterfahren erzwungen wird.
Regelmäßige User werden sich für diese Automation bedanken und das egal ob sie dei MainForm schließen oder einfach den Rechner herunterfahren.

[Capa]

die frage ist dann allerdings kann ich überhaupt noch speichern wenn der rechner runtergefahren wird und ich das quasi anhalte. Den das ganze ist eine DB-Anwendung und wenn ich pech hab und der mir die netzwerkverbindung killt dann kann der user auch nicht mehr speichern.
Im Normalfall soll der User ja auch das Programm beenden bevor er den rechner runterfährt.

[MGC]

Sehr gut, Problem gelöst. Nach Sir Rufos Vorschlag wird bei Programmende der FormCloseQiery jedes Child-Forms aufgerufen und der Anwender kann somit über das Fehlende Speichern informiert werden.
Beim herunterfahrern des Rechners sollte der Anwender also ohne seine Änderungen gespeichert haben und falls er "zu faul" ist seine Anwendung zu schließen bevor er den Rechner herunterfährt, wird einfach das Programm abgeschossen/forced, um den Vorgang des Hereunterfahrens nicht zu blockieren.
Noch eine entsprechende Bemerkung in die Bedienungsanleitung und fertig.