欢迎来到天天文库
浏览记录
ID:10919533
大小:65.02 KB
页数:5页
时间:2018-07-08
《c++ builder5 制作的日历》由会员上传分享,免费在线阅读,更多相关内容在行业资料-天天文库。
1、添加组件有:1个CCalender、3个CSpinButton、1个Timer、2个Label、3个Edit、2个Button、注意:必须在3个Edit中分别输入,“请输入年份”“请输入月份”“请输入日期”(要和代码中的完全一致,否则出错。当然也可以把相应的代码注释掉不使用。)另外,为了避免在Edit组件中输入错误的字符,可以在代码中把Edit的Enabled属性一直设为false。(不在代码中写出来,直接在属性栏设置也可以。)Form1->Edit1->Enabled=false;Form1->Edit2->Enabled=fals
2、e;Form1->Edit3->Enabled=false;代码为:#include#pragmahdrstop#include"Unit1.h"//---------------------------------------------------------------------------#pragmapackage(smart_init)#pragmalink"CCALENDR"#pragmalink"CSPIN"#pragmaresource"*.dfm"TForm1*Form1;//-----------
3、----------------------------------------------------------------__fastcallTForm1::TForm1(TComponent*Owner):TForm(Owner){}//---------------------------------------------------------------------------void__fastcallTForm1::FormCreate(TObject*Sender){//文本组件初始化Form1->Edit1->
4、Text="请输入年份";Form1->Edit2->Text="请输入月份";Form1->Edit3->Text="请输入日期";//CCalendar组件初始化Form1->CCalendar1->Year=2013;Form1->CCalendar1->Month=7;Form1->CCalendar1->Day=1;//各个组件的状态Form1->CCalendar1->Enabled=false;Form1->Edit1->Enabled=false;Form1->Edit2->Enabled=false;Form1->E
5、dit3->Enabled=false;Form1->CSpinButton1->Enabled=false;Form1->CSpinButton2->Enabled=false;Form1->CSpinButton3->Enabled=false;Form1->Timer1->Enabled=false;}//---------------------------------------------------------------------------void__fastcallTForm1::CCalendar1Change
6、(TObject*Sender){//将组件CCalendar中的时间显示在文本框中。Form1->Edit1->Text=IntToStr(Form1->CCalendar1->Year);Form1->Edit2->Text=IntToStr(Form1->CCalendar1->Month);Form1->Edit3->Text=IntToStr(Form1->CCalendar1->Day);}//-----------------------------------------------------------------
7、----------void__fastcallTForm1::Edit1Change(TObject*Sender){//当文本框中的数据改变时,CCalendar中相应的改变Form1->CCalendar1->Year=StrToInt(Form1->Edit1->Text);}//---------------------------------------------------------------------------void__fastcallTForm1::Edit2Change(TObject*Sender){
8、Form1->CCalendar1->Month=StrToInt(Form1->Edit2->Text);}//-----------------------------------------------------
此文档下载收益归作者所有