开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 电子书籍 > VC书籍 > 查看源码
Unit1.cpp
资源名称：C++Builder.rar　[点击查看]
上传用户：lhxd_sz
上传日期：2014-10-02
资源大小：38814k
文件大小：2k
源码类别：

VC书籍

开发平台：

C++ Builder

Unit1.cpp：源码内容
  1. //---------------------------------------------------------------------------
  2. #include <vcl.h>
  3. #pragma hdrstop
  5. #include "Unit1.h"
  6. //---------------------------------------------------------------------------
  7. #pragma package(smart_init)
  8. #pragma resource "*.dfm"
  9. TForm1 *Form1;
  10. //---------------------------------------------------------------------------
  11. __fastcall TForm1::TForm1(TComponent* Owner)
  12.         : TForm(Owner)
  13. {
  14.   BnCount=0;
  15. }
  16. //---------------------------------------------------------------------------
  17. __fastcall TForm1::~TForm1()
  18. {
  19.   DeleteAllBn();
  20. }
  21. //---------------------------------------------------------------------------
  22. void __fastcall TForm1::DeleteAllBn(void)
  23. {
  24.   int ii;
  25.   for(ii=0;ii<BnCount;ii++)
  26.   {
  27.     delete Bn[ii];
  28.   }
  29. }
  30. //---------------------------------------------------------------------------
  31. void __fastcall TForm1::Button1Click(TObject *Sender)
  32. {
  33.   int ii,yy,ww;
  34.   ww=12;yy=45;
  35.   DeleteAllBn();
  36.   for(ii=0;ii<10;ii++)
  37.   {
  38.     Bn[ii]=new TButton(this);
  39.     Bn[ii]->Parent=this;
  40.     Bn[ii]->OnClick=BtnClick;
  41.     Bn[ii]->Caption=IntToStr(ii);
  42.     if((ww+Bn[ii]->Width+5)>Width)
  43.     {
  44.       yy=yy+Bn[ii]->Height+5;
  45.       ww=12;
  46.     }
  47.     Bn[ii]->Left=ww;
  48.     Bn[ii]->Top=yy;
  49.     ww=ww+Bn[ii]->Width+5;
  50.   }
  51.   BnCount=10;
  52. }
  53. //---------------------------------------------------------------------------
  54. void __fastcall TForm1::Button2Click(TObject *Sender)
  55. {
  56.   int ii,yy,ww;
  57.   ww=12;yy=45;
  58.   DeleteAllBn();
  59.   for(ii=0;ii<26;ii++)
  60.   {
  61.     Bn[ii]=new TButton(this);
  62.     Bn[ii]->Parent=this;
  63.     Bn[ii]->OnClick=BtnClick;
  64.     Bn[ii]->Caption=Char('A'+ii);
  65.     if((ww+Bn[ii]->Width+5)>Width)
  66.     {
  67.       yy=yy+Bn[ii]->Height+5;
  68.       ww=12;
  69.     }
  70.     Bn[ii]->Left=ww;
  71.     Bn[ii]->Top=yy;
  72.     ww=ww+Bn[ii]->Width+5;
  73.   }
  74.   BnCount=26;
  75. }
  76. //---------------------------------------------------------------------------
  77. void __fastcall TForm1::BtnClick(TObject *Sender)
  78. {
  79.   TButton *cn;
  80.   cn=(TButton *)Sender;
  81.   Edit1->Text=cn->Caption;
  82. }
  83. //---------------------------------------------------------------------------