Verhindern, das sich das Programm mit Alt+F4 schließen lässt

Reply to Verhindern, das sich das Programm mit Alt+F4 schließen lässt on Sun, 06 Nov 2005 11:39:34 GMT

Verrückter Bastler — Sun, 06 Nov 2005 11:39:34 GMT

Selbsterklärend/|\
|

Reply to Verhindern, das sich das Programm mit Alt+F4 schließen lässt on Sun, 06 Nov 2005 11:48:55 GMT

Jansen — Sun, 06 Nov 2005 11:48:55 GMT

OnCloseQuery

Reply to Verhindern, das sich das Programm mit Alt+F4 schließen lässt on Sun, 06 Nov 2005 11:57:58 GMT

Verrückter Bastler — Sun, 06 Nov 2005 11:57:58 GMT

Worein soll man das denn Schreiben?
Bin noch absoluter Neuling!

Reply to Verhindern, das sich das Programm mit Alt+F4 schließen lässt on Sun, 06 Nov 2005 12:07:35 GMT

audacia — Sun, 06 Nov 2005 12:07:35 GMT

Ist zwar nicht allzu elegant, funktioniert aber:

bool alt_f4 = false;

...

void __fastcall TForm1::FormKeyDown(TObject *Sender, WORD &Key,
      TShiftState Shift)
{
        if (Shift.Contains (ssAlt) && Key == VK_F4)
                alt_f4 = true;
}
//---------------------------------------------------------------------------

void __fastcall TForm1::FormCloseQuery(TObject *Sender, bool &CanClose)
{
        if (alt_f4)
                alt_f4 = CanClose = false;
}