Wie wird ein Fenster geschlossen?

[Marphy]

Hallo zusammen,
mein kleines Problem:
Wenn der User auf den X-Button in der Titelleiste meines Formulars klickt, soll irgendeine Methode aufgerufen werden (z.B. um eine bestimmte Aktion abzubrechen etc.). Wird das Fenster jedoch im Code über ein Close() geschlossen, soll o.g. nicht ausgeführt werden... Wie kann ich dieses Problem am Besten lösen? In VB gibt's im OnCloseQuery()-Event wenigstens noch einen entsprechenden Parameter... :( Habe ich vielleicht was übersehen?

Danke und liebe Grüße,
Marco

[Boombuler]

Notfalls mach dir selber einen Parameter!

wenn du im Code Close aufrufen willst setzt du einfach eine Bool-Variable auf True und wenn im OnCloseQuery die Variable auf True steht wingst du das direkt durch...

Greetz
B00mbuler

[Kompon Ente]

Zitat:

Zitat von Marphy

In VB gibt's im OnCloseQuery()-Event wenigstens noch einen entsprechenden Parameter... :( Habe ich vielleicht was übersehen?

Jep, hast du!

Formular -> Ereignisse -> OnCloseQuery ;)

[fred.reichbier]

Zitat:

Zitat von Kompon Ente

Zitat:

Zitat von Marphy

In VB gibt's im OnCloseQuery()-Event wenigstens noch einen entsprechenden Parameter... :( Habe ich vielleicht was übersehen?

Jep, hast du!

Formular -> Ereignisse -> OnCloseQuery ;)

Ich glaube, OnCloseQuery wird aufgerufen wenn der user auf X drückt und wenn CLOSE aufgerufen wird :gruebel:

[Marphy]

Hallo hier beiden,
danke für die schnellen Antworten!

Zitat:

Zitat von Kompon Ente

Zitat:

Zitat von Marphy

In VB gibt's im OnCloseQuery()-Event wenigstens noch einen entsprechenden Parameter... :( Habe ich vielleicht was übersehen?

Jep, hast du!

Formular -> Ereignisse -> OnCloseQuery ;)

Dass es in Delphi auch ein OnCloseQuery() gibt, weiß ich natürlich. Ein Parameter, der die "Art" angibt, wie ein Formular geschlossen wird, besitzt dieses Event in Delphi jedoch nicht (sehr wohl aber in VB). Das meinte ich :wink:

@boombuler:
Diese Lösung habe ich mir auch schon überlegt. Wäre aber allerdings nur eine Notlösung... Warum kann sich jeder selbst denken :???: :wink:

@fred:
Genau!

Gruß, Marco

[Khabarakh]

Benutze im Code Application.Terminate, dadurch wird das OnClose-Event übersprungen.
Alternativ könntest du auch vor dem Aufruf von Close die OnClose-Property auf nil setzen.

[Luckie]

Zitat:

Zitat von Khabarakh

Benutze im Code Application.Terminate, dadurch wird das OnClose-Event übersprungen.

Bist du sicher, dass das so eine gute Idee ist? :?

Zitat:

Alternativ könntest du auch vor dem Aufruf von Close die OnClose-Property auf nil setzen.

Auch das halte ich eher für eine 'von-hinten-durch-die-Brust-ins-Auge' Lösung.

Einfache eine Boolean Variable im private Abschnitt der Formklasse deklarieren und gut ist.

[Marphy]

Hallo Sebastian,

Zitat:

Zitat von Khabarakh

Benutze im Code Application.Terminate, dadurch wird das OnClose-Event übersprungen.
Alternativ könntest du auch vor dem Aufruf von Close die OnClose-Property auf nil setzen.

Ich will aber nicht meine ganze Anwendung, sondern nur ein Fenster schließen. Der andere Vorschlag ist auch nicht das Optimum, da (a) zu aufwendig, vor jedem Close() dat Dingens zu "nilen" und nachher wieder auf die entsprechende Methode zu setzen und (2) will ich vielleicht auch bei Close() im OnClose()-Event Code ausführen, nur eben anderen, als wenn der Nutzer die Form über den X-Button schließt. :gruebel:

Gruß, Marco

P.S.: Wie steht's eigentlich mit deinem TChart-Klone? :-D

[Sidorion]

Da kommst Du wohl um eine eigene methode nicht drumrum
close() ist nämlich nicht virtuell und wird imho auch beim Drücken auf das Kreuz gerufen.
eine Lösung wäre:
im Interface deiner Form schreibst du:

Delphi-Quellcode:

  private
   _bExecuteCloseAction: Boolean;
  ...
  public
  ...
  Constructor Create(Owner: TComponent); Override;
  function CloseQuery: Boolean; Override;
  Procedure Close(_bExecuteCloseAction: Boolean); ReIntroduce; Overload;
  ...

der Body der Funltion sieht dann so aus:

Delphi-Quellcode:

Procedure TMyForm.Close(_bExecuteCloseAction: Boolean);
Begin
  bExecuteCloseAction:=_bExecuteCloseAction;
  Close;
End;

Natürlich muss die Boolean variable im Constructor noch initialisiert werden:

Delphi-Quellcode:

Constructor TMyForm.Create(Owner: TComponent);
Begin
  Inherited;
  bExecuteCloseAction:=True;
End;

und im CloseQuery abgeprüft:

Delphi-Quellcode:

function TMyForm.CloseQuery: Boolean; Override;
Begin
  If bExecuteCloseQuery
  Then Begin
    //hier Deine schließfunktionalität
    Result:=?????;
  End Else Result:=True;
End;

Jetzt kannst du irgendwo im code schreiben

Delphi-Quellcode:

MyForm1.Close(false); //wenn nix ausgeführt werden soll
//oder
MyForm.Close;
//bzw
MyForm.Close(true); //wenn die funktionalität ausgeführt werden soll

[Luckie]

Also Jungs, was macht ihr da eigentlich? Das ist ja grausam. :roll:

Delphi-Quellcode:

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure Button1Click(Sender: TObject);
  private
    bCloseButtonUsed: Boolean;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

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

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  if bCloseButtonUsed then
    CanClose := bCloseButtonUsed
  else
    CanClose := Messagebox(Handle, 'Schließen?', 'Fenster schließen', MB_YESNO) = ID_YES;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  bCloseButtonUsed := True;
  Close;
end;

Klickt man auf die Schaltfläche auf dem Formular, wird es sofort geschlossen, bei Klick auf das Kreuz in der Titelleiste kommt die Abfrage. So war es doch gewollt oder?

[Khabarakh]

Zu Terminate:
Gut, es handelt sich also nicht um das Haupt-Formular :wink: .
Aber falls es so wäre, ist dann Terminate nicht die schnellste Lösung, wenn man die EventHandler auslassen will? Oder gibt es noch andere Nachteile?

Zu nil:
Schnell eine eigene Prozedur

Delphi-Quellcode:

procedure TMyForm.CloseWithoutPrompt;
begin
  OnClose{Query} := nil;
  Close;
end;

und mit Strg + R durch den Code gehen hätte es auch getan, aber Luckies Lösung ist wahrscheinlich doch die beste.

[Marphy]

Hallo zusammen,

@Sidorion:
Danke für deinen Lösungsvorschlag! :-D Ich habe das Ganze zum Testen leicht modifiziert in eine kleine Demo gepackt (Anhang) und es funktioniert einwandfrei... Der Aufwand ist zwar nicht gleich 0, hält sich aber im Rahmen. :wink:
Falls jemand eine bessere/einfachere Lösung parat hat, bitte posten!! :thumb:

@Luckie:
Das hat Sid ja im Großen und Ganzen schon gepostet :wink: In der Demo sind beide Varianten kombiniert.

@Sebastian:
Und was ist, wenn ich das Fenster dann wieder über Show() einblende und es über die Titelleiste schließe? :???: Und drück dich nicht vor der anderen Frage! :mrgreen: :wink:

Gruß, Marco

[Khabarakh]

Zitat:

Zitat von Marphy

Und was ist, wenn ich das Fenster dann wieder über Show() einblende und es über die Titelleiste schließe?

Hast ja Recht, ich war in Gedanken noch immer bei der MainForm :wink: . Man könnte natürlich den Wert von OnClose speichern und nach Close (ohne Klammern, wir sind doch nicht in C :wink: ) wieder zuweisen, aber Luckies und Sidorions Lösung ist ja sowieso die beste.

Zur dieser gewissen anderen Frage:
Der Umfang hat sich inzwischen verdoppelt, die Entwicklungszeit steigt dazu proportional :wink: . Der Code ist zu etwa 70% fertig, es fehlen noch ein Demo-Programm und wenigstens etwas Dokumentation. Jetzt aber genug mit OT :wink: .

[DevilsCamp]

Eine andere Möglichkeit wäre folgende:

Wenn man auf das X klickt, wird, soweit ich mich nicht irre, eine System-Botschaft an das Fenster geschickt (die nicht kommt, wenn man Close() aufruft).

Also einfach die Botschaften-Behandlung abfangen (WndProc oder so ähnlich) und bei der Botschaft den entsprechenden Code ausführen.

[Marphy]

Hallo zusammen:

@Marc:
An sowas habe ich auch schon gedacht... Ist aber um einiges aufwändiger. Andererseits könnte man z.B. auch ermitteln, ob Windows versucht, die Anwendung zu beenden, weil der PC heruntergefahren wird.

@Sebastian:
Na, was hab ich dir gesagt? :mrgreen: Wie gesagt, schreib mir, wenn das Teil fertig ist! :)

Gruß, Marco