chesserr.cpp

内容 Readme.txt BcbChess 中国象棋程序实例的源代码所在的文件夹 BcbExe 中国象棋程序实例的可执行程序所在的文件夹 BcbTest 关于时间测试的项目所在的文

#include <vcl\vcl.h>
#pragma hdrstop

#include "ChessErr.h"
//---------------------------------------------------------------------
TChessErrorDlg *ChessErrorDlg;
//---------------------------------------------------------------------
/*
为了动态地创建窗体必须使用双变量构造函数，这样才能安全地忽略警告。
双变量构造函数存在的唯一原因是构造动态窗体。
双变量构造函数创建与DFM文件无关的窗体。
因为动态窗体不使用DFM文件，因此必须构造控件和分配事件句柄并在运行
期间为TChessErrorDlg设置参数特性。
必须为动态创建的控件设置Top和Left参数。否则，控件将出现在窗体的角上。
同时，也应该为其它起重要作为的控件设置参数。
如果忘记设置原始参数。动态创建的控件将不会出现。
分配OKBtnClick给控件的事件句柄。当用户揿击OKBtn时OKBtnClick将执行。
*/
__fastcall TChessErrorDlg::TChessErrorDlg(TComponent* AOwner,
  AnsiString ErrorString)
	: TForm(AOwner,NULL)
{
  Left = 65;
  Top = 539;
  BorderStyle = bsDialog;
  Caption = "中国象棋错误";
  ClientHeight = 183;
  ClientWidth = 292;
  Color = clBtnFace;
  ParentFont = True ;
  OldCreateOrder = True;
  Position = poScreenCenter;
  PixelsPerInch = 96;

  TBevel *Bevel1 =new TBevel(this);
   Bevel1->Parent =this;
   Bevel1->Height= 1;
   Bevel1->Width = 292;
   Bevel1->Left = 0 ;
   Bevel1->Top = 120;

  TPanel *Panel1 = new TPanel(this);
   Panel1->Parent =this;
   Panel1->Left = 48;
   Panel1->Top = 24;
   Panel1->Width = 185 ;
   Panel1->Height = 81;
   Panel1->BevelOuter = bvLowered;
   Panel1->Color = clGrayText;
   Panel1->TabOrder = 1 ;

  TStaticText *Label2 = new TStaticText(this);
   Label2->Parent =Panel1;
   Label2->Alignment=taCenter;
   Label2->Align=alNone;
   Label2->Color = Panel1->Color;
   Label2->AutoSize= true;
   Label2->Align=alClient;
   Label2->Font->Charset = DEFAULT_CHARSET;
   Label2->Font->Color = clBtnFace;
   Label2->Font->Height = -14    ;
   Label2->ParentColor = False;
   Label2->ParentFont = False ;
   Label2->Font->Color = clWindowText;
   Label2->Font->Height = -17   ;
   Label2->Left=20;
   Label2->Top = Panel1->Top+Panel1->Height/2-Label2->Height/2-50;
   Label2->Width= 108;
   Label2->Height = 24;
   Label2->Caption=ErrorString;

  TButton *OKBtn = new TButton(this);
   OKBtn->Parent =this;
   OKBtn->Top=140;
   OKBtn->Left=111;
   OKBtn->Width= 75;
   OKBtn->Height =25;
   OKBtn->Caption = "OK";
   OKBtn->OnClick = OKBtnClick;
   OKBtn->Caption = "OK";
   OKBtn->TabOrder = 1 ;

};
//----------------------------------------------------------------------------
/*
分配OKBtnClick给控件的事件句柄。当用户揿击OKBtn时OKBtnClick将执行。
关闭对话框。
*/
    void __fastcall TChessErrorDlg::OKBtnClick(TObject *Sender)
    {
    Close();
    }