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

#include "ChessErr.h"
//---------------------------------------------------------------------
TChessErrorDlg *ChessErrorDlg;
//---------------------------------------------------------------------
/*
為了動態(tài)地創(chuàng)建窗體必須使用雙變量構(gòu)造函數(shù)，這樣才能安全地忽略警告。
雙變量構(gòu)造函數(shù)存在的唯一原因是構(gòu)造動態(tài)窗體。
雙變量構(gòu)造函數(shù)創(chuàng)建與DFM文件無關(guān)的窗體。
因?yàn)閯討B(tài)窗體不使用DFM文件，因此必須構(gòu)造控件和分配事件句柄并在運(yùn)行
期間為TChessErrorDlg設(shè)置參數(shù)特性。
必須為動態(tài)創(chuàng)建的控件設(shè)置Top和Left參數(shù)。否則，控件將出現(xiàn)在窗體的角上。
同時(shí)，也應(yīng)該為其它起重要作為的控件設(shè)置參數(shù)。
如果忘記設(shè)置原始參數(shù)。動態(tài)創(chuàng)建的控件將不會出現(xiàn)。
分配OKBtnClick給控件的事件句柄。當(dāng)用戶撳擊OKBtn時(shí)OKBtnClick將執(zhí)行。
*/
__fastcall TChessErrorDlg::TChessErrorDlg(TComponent* AOwner,
  AnsiString ErrorString)
	: TForm(AOwner,NULL)
{
  Left = 65;
  Top = 539;
  BorderStyle = bsDialog;
  Caption = "中國象棋錯(cuò)誤";
  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給控件的事件句柄。當(dāng)用戶撳擊OKBtn時(shí)OKBtnClick將執(zhí)行。
關(guān)閉對話框。
*/
    void __fastcall TChessErrorDlg::OKBtnClick(TObject *Sender)
    {
    Close();
    }