Category

Development Platform
Home > E-Books > Visual C++ Books > View Code
Unit1.cpp
Package: C++Builder.rar　[view]
Upload User: lhxd_sz
Upload Date: 2014-10-02
Package Size: 38814k
Code Size: 1k
Category:

Visual C++ Books

Development Platform:

C++ Builder

Unit1.cpp：Code Content
  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.   Icon1=new TIcon();
  15.   Icon1->LoadFromFile("icon1.ico");
  16.   Icon2=new TIcon();
  17.   Icon2->LoadFromFile("icon2.ico");
  18.   Icon3=new TIcon();
  19.   Icon3->LoadFromFile("icon3.ico");
  20.   Icon4=new TIcon();
  21.   Icon4->LoadFromFile("icon4.ico");
  22.   IconNN=0;
  23. }
  24. //---------------------------------------------------------------------------
  25. __fastcall TForm1::~TForm1()
  26. {
  27.   delete Icon1;
  28.   delete Icon2;
  29.   delete Icon3;
  30.   delete Icon4;
  31. }
  32. //---------------------------------------------------------------------------
  33. void __fastcall TForm1::Timer1Timer(TObject *Sender)
  34. {
  35.   if(IconNN==0)
  36.   {
  37.     Icon=Icon1;
  38.     IconNN=1;
  39.   }
  40.   else if(IconNN==1)
  41.   {
  42.     Icon=Icon2;
  43.     IconNN=2;
  44.   }
  45.   else if(IconNN==2)
  46.   {
  47.     Icon=Icon3;
  48.     IconNN=3;
  49.   }
  50.   else if(IconNN==3)
  51.   {
  52.     Icon=Icon4;
  53.     IconNN=0;
  54.   }
  55. }
  56. //---------------------------------------------------------------------------
  57. void __fastcall TForm1::Button1Click(TObject *Sender)
  58. {
  59.  Close();
  60. }
  61. //---------------------------------------------------------------------------