2012年6月28日
Left 右到左 位移
摘要： void__fastcallTf6_3_1::Button1Click(TObject*Sender) { inti; Button1->Left=300; Button1->Top=50; for(i=300;i>1;i--) { Button1->Left=i; Refresh(); } } 粘贴自：< ">http://www.cnpack.org/ >通过 为知笔记 发布 阅读全文
posted @ 2012-06-28 21:03 XE2011 阅读(168) 评论(0) 推荐(0)
switch
摘要： void__fastcallTf5_10_1::RadioGroup1Click(TObject*Sender) { switch(RadioGroup1->ItemIndex) { case0: this->Caption="A"; break; case1: this->Caption="B"; break; case2: this->Caption="C"; break; } } void_... 阅读全文
posted @ 2012-06-28 21:03 XE2011 阅读(145) 评论(0) 推荐(0)
time
摘要： this->Caption=Time();通过 为知笔记 发布 阅读全文
posted @ 2012-06-28 21:03 XE2011 阅读(87) 评论(0) 推荐(0)
Canvas
摘要： //显示当前系统的时间Canvas->TextOut(0,0,Time());Canvas->Pen->Color=clRed; Canvas->Pen->Style=psDashDot; Canvas->Brush->Style=bsSolid; Canvas->Rectangle(50,50,100,100); Canvas->Pen->Style=psSolid; Canvas->Brush... 阅读全文
posted @ 2012-06-28 21:03 XE2011 阅读(359) 评论(1) 推荐(0)
Image图片动画制作
摘要： intisOdd; void__fastcallTForm1::FormCreate(TObject*Sender) { Image2->Visible=False; Image3->Visible=False; Image2->AutoSize=True; Image3->AutoSize=True; Timer1->Interval=0; } //-----------------------... 阅读全文
posted @ 2012-06-28 21:02 XE2011 阅读(244) 评论(0) 推荐(0)