Sender ved OnCloseQuery

Lav en handler til WM_QUERYCLOSESESSION eller WM_CLOSESESSION, der sætter din Form1.OnCloseQuery = 0.

Øhh... Jeg er en damn newbee! :-) Kan du ikke uddybe hvordan jeg laver en handle til WM_QUERYCLOSESESSION ?

Undskyld, det kan jeg da godt forstå. Jeg skrev bare efter hukommelsen, og der er åbenbart røget et par kredse ;-(

Messagen hedder WM_ENDSESSION.

Indsæt message handleren sådan her i TForm1\'s header fil:

protected:
        void __fastcall WMEndSession(TMessage &Message);
BEGIN_MESSAGE_MAP
        MESSAGE_HANDLER(WM_ENDSESSION, TMessage, WMEndSession)
END_MESSAGE_MAP(TControl)

Implementer handleren sådan her i .cpp filen:

void __fastcall TForm1::WMEndSession(TMessage &Message)
{
        if (Message.WParam == TRUE) {
                OnCloseQuery = 0;
        }
}

Det virker stadig ikke... :-(
Dialogboksen som kommer ved OnCloseQuery kommer stadig!
Jeg får ingen fejlmeddelser eller lignende når jeg indsætter din kode, men det hjælper heller ikke på noget.
Kan det ikke være det er en af de andre WM_ kald der skal bruges?

Du kan ikke umiddelbart se forskel på en bruger genereret close og en close sendt af Windows. Du kan komme lidt af vejen, ved at lave en ekstra bool (f.eks. USerExit) som du sætter til true, når bruger vælge en af de \"autoriserede\" måder at afslutte dit program på. (Altså exit fra menuen eller en Exit knap.) Men du vil ikke kunne fange at de selv klikker på X i toppen af formen.

Problemet er at de er jo OGSÅ windows der håndtere den alm. Close event - alle meddelelser kommer fra Windows.

Måske kan du vælge heldig at Application->Terminated kun bliver sat, når Windows anmoder om at afslutte programmet - og så kun poppe op med meddelelsen, hvis den ej er sat:

:
if (Beenchanged && !Application->Terminated)
:

Hmmm... har aldrig rigtigt fået det til at virke som jeg gerne ville, men har løst det på en anden måde! (The Microsoft Word style... ;-))

anyway.. I får 15 p. hver som tak for hjælpen.