Schließen-Kreuz programmierbar?

bigmasterdenis · Beiträge: 48

Hallo Leute,

in meinem Programm möchte ich verhindern dass das Schließen-Kreuz, oben in der Ecke ein Programm immer schließt. Das Schließen des Programms soll bedingt erfolgen: Bedingung erflüllt => Programm normal beenden, Bedingung nicht erfüllt => Warnmeldung und Programm NICHT beenden. Ich könnte natürlich einfach das Schließen-Kreuz zum richtigen Zeitpunkt ausblenden (biSystemmenu), aber das wird den Benutzer eher verwirren.

Gibt es eine elegante Möglchkeit dieses Problem zu lösen?

MfG.
Denis

freedy · Beiträge: 403 Erhaltene Danke: 1 Winows 7 Delphi XE

Hi,

schau mal in deinen Ereignissen des Formulars nach OnFormClose. Der Übergabeparameter CanClose kann dort gesetzt werden. Wenn noch Fragen sind, melde dich einfach. Sollte aber eigentlich einfach zu implementieren sein.

Grüße

bigmasterdenis · Beiträge: 48

hhm... wie genau funktioniert das mit dem CanClose? Wo soll der Parameter gesetzt werden?

Gausi · Verfasst: Mi 19.11.08 14:59

Das Event heißt aber OnCloseQuery. ;-)

_________________
We are, we were and will not be.

bluesun · Beiträge: 22 Win XP Delphi 2005 Prof

markieren

Delphi-Quelltext

1:
2:
3:
4:

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  canClose := false;
end;

_________________
Mehr als alles hüte dein Herz; denn von ihm geht das Leben aus.

bigmasterdenis · Beiträge: 48

Ausgezeichnet!

Funktioniert :lol:

Schon wieder was dazugelernt... danke!

freedy · Beiträge: 403 Erhaltene Danke: 1 Winows 7 Delphi XE

Gausi hat folgendes geschrieben :

Das Event heißt aber OnCloseQuery. ;-)

Richtig... OnClose hat ja die Action... tut mir Leid. Gab hoffentlich keine Verwirrungen. ;-)

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme