main.cpp

来自「《bcb深度历险》 电子书」· C++ 代码 · 共 67 行

//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "main.h"

//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TMainForm *MainForm;
//---------------------------------------------------------------------------
__fastcall TMainForm::TMainForm(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::WMSysCommand(TWMSysCommand& Message)
{
  if (Message.CmdType == SC_SCREENSAVE)
    Message.Result = 0;
  else
    TForm::Dispatch(&Message);
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::WMActivate(TWMActivate& Message)
{
  if (Message.Active == WA_INACTIVE)
    Close();
  else
    TForm::Dispatch(&Message);
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::WMNCActivate(TWMNCActivate& Message)
{
  if (Message.Active == false)
    Close();
  else
    TForm::Dispatch(&Message);
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::WMActivateApp(TWMActivateApp& Message)
{
  if (Message.Active == false)
    Close();
  else
    TForm::Dispatch(&Message);
}
//---------------------------------------------------------------------------

void __fastcall TMainForm::FormKeyDown(TObject *Sender, WORD &Key,
      TShiftState Shift)
{
  Close();        
}
//---------------------------------------------------------------------------

void __fastcall TMainForm::FormMouseDown(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
  Close();        
}
//---------------------------------------------------------------------------

void __fastcall TMainForm::FormActivate(TObject *Sender)
{
  ShowCursor(false); // 盢菲公