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

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

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. }
  15. //---------------------------------------------------------------------------
  16. void __fastcall TForm1::Test(TObject *Sender)
  17. {
  18.   int ii;
  19.   TLabel *lb;
  20.   AnsiString ss1,ss2;
  21.   ss1=Sender->ClassName();
  22.   if(ss1!="TLabel")return;
  23.   lb=(TLabel*)Sender;
  24.   ss1=lb->Name;
  25.   for(ii=0;ii<ControlCount;ii++)
  26.   {
  27.     lb=(TLabel *)Controls[ii];
  28.     ss2=lb->Name;
  29.     if(ss1==ss2)
  30.       lb->Font->Color=clRed;
  31.     else
  32.       lb->Font->Color=clBlack;
  33.   }
  34. }
  35. //---------------------------------------------------------------------------
  38. void __fastcall TForm1::Label1MouseMove(TObject *Sender, TShiftState Shift,
  39.       int X, int Y)
  40. {
  41.   Test(Sender);
  42. }
  43. //---------------------------------------------------------------------------
  46. void __fastcall TForm1::Label2MouseMove(TObject *Sender, TShiftState Shift,
  47.       int X, int Y)
  48. {
  49.   Test(Sender);
  50.         
  51. }
  52. //---------------------------------------------------------------------------
  54. void __fastcall TForm1::Label3MouseMove(TObject *Sender, TShiftState Shift,
  55.       int X, int Y)
  56. {
  57.   Test(Sender);
  58.         
  59. }
  60. //---------------------------------------------------------------------------
  62. void __fastcall TForm1::Label4MouseMove(TObject *Sender, TShiftState Shift,
  63.       int X, int Y)
  64. {
  65.   Test(Sender);
  66. }
  67. //---------------------------------------------------------------------------
  69. void __fastcall TForm1::Label5MouseMove(TObject *Sender, TShiftState Shift,
  70.       int X, int Y)
  71. {
  72.   Test(Sender);
  73. }
  74. //---------------------------------------------------------------------------
  76. void __fastcall TForm1::Label6MouseMove(TObject *Sender, TShiftState Shift,
  77.       int X, int Y)
  78. {
  79.   Test(Sender);
  80.         
  81. }
  82. //---------------------------------------------------------------------------
  84. void __fastcall TForm1::Label7MouseMove(TObject *Sender, TShiftState Shift,
  85.       int X, int Y)
  86. {
  87.   Test(Sender);
  88. }
  89. //---------------------------------------------------------------------------
  91. void __fastcall TForm1::Label8MouseMove(TObject *Sender, TShiftState Shift,
  92.       int X, int Y)
  93. {
  94.   Test(Sender);
  95.         
  96. }
  97. //---------------------------------------------------------------------------
  99. void __fastcall TForm1::Label9MouseMove(TObject *Sender, TShiftState Shift,
  100.       int X, int Y)
  101. {
  102.   Test(Sender);
  103.         
  104. }
  105. //---------------------------------------------------------------------------
  107. void __fastcall TForm1::Label10MouseMove(TObject *Sender,
  108.       TShiftState Shift, int X, int Y)
  109. {
  110.   Test(Sender);
  111. }
  112. //---------------------------------------------------------------------------