Re: Beenden von Anwendung verhindern
- From: Simon Reinhardt <SReinh@xxxxxx>
- Date: 16 May 2006 18:17:38 GMT
Jan Becker schrieb in news:44699855$0$11072$9b4e6d93@xxxxxxxxxxxxxxxx
online.net:
Hallo!
Ich möchte gerne, dass eine Anwendung nicht zu beenden ist, bzw. dass
das Form minimiert wird, sofern das X angeklickt wird.
Dazu habe ich in FormCloseQuery die Variable CanClose:=false gesetzt.
Soweit so schön, das Problem ist jetzt leider nur, dass sich Windows
nicht herunterfahren lässt, bevor das Programm nicht aus dem Speicher
fliegt.
Weiß jemand Rat?
Ja, ich:
Du musst Windows erlauben, das Programm zu beenden. Das kannst Du in
einem Ereignishandler für die WM_QueryEndSession-Nachricht machen, mit
der Windows bei allen laufenden Anwendungen nachfragt, ob das
Herunterfahren denn jetzt genehm wäre.
Das sieht dann so aus:
type TMyMainForm
private
AllowClose : boolean;
procedure WMQueryEndSession(var Message: TWMQueryEndSession);
message WM_QUERYENDSESSION;
end;
procedure TMyMainForm.WMQueryEndSession(var Message: TWMQueryEndSession);
begin
Message.Result:=1;
AllowClose:=true;
Close;
end;
procedure TMyMainForm.FormCloseQuery(Sender: TObject;
var CanClose: Boolean);
begin
CanClose:=AllowClose;
if not CanClose then
Application.Minimize; // oder sowas ähnliches
end;
Simon
--
Don't panic
Homepage: http://www.picsoft.de
Delphi Fundgrube: http://www.delphi-fundgrube.de
.
- Follow-Ups:
- Re: Beenden von Anwendung verhindern
- From: Jan Becker
- Re: Beenden von Anwendung verhindern
- References:
- Beenden von Anwendung verhindern
- From: Jan Becker
- Beenden von Anwendung verhindern
- Prev by Date: Re: TList sortieren
- Next by Date: Re: Delphi wird zum Rennpferd
- Previous by thread: Re: Beenden von Anwendung verhindern
- Next by thread: Re: Beenden von Anwendung verhindern
- Index(es):
Relevant Pages
|
