13,825
社区成员
发帖
与我相关
我的任务
分享一闪一闪的效果如何实现？
譬如，我在窗体中放了一个Panel1组件（面板颜色为红色），又放了一个Button1组件，我希望当我单击Button1时，Panel1组件的颜色在红色和绿色之间来回变化，怎么实现？
谢谢！
谢谢！
...全文
请发表友善的回复…
发表回复
caoliu 2003-06-25
- 打赏
- 举报
谢谢大家～
LanceX 2003-06-25
- 打赏
- 举报
加一个TTimer就好
void __fastcall TForm1::Button1Click(TObject *Sender)
{
Timer1->Enabled=true;//你看看在哪里把Timer1->Enabled=false;就关闭了
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
if (Panel1->Color==clRed){
Panel1->Color=clGreen;
}
else Panel1->Color=clRed;
}
void __fastcall TForm1::Button1Click(TObject *Sender)
{
Timer1->Enabled=true;//你看看在哪里把Timer1->Enabled=false;就关闭了
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
if (Panel1->Color==clRed){
Panel1->Color=clGreen;
}
else Panel1->Color=clRed;
}
HYCabc 2003-06-25
- 打赏
- 举报
void __fastcall TForm1::Button1Click(TObject *Sender)
{
Panel1->Color=clGreen;
}
配合TTimer就好了。
{
Panel1->Color=clGreen;
}
配合TTimer就好了。
bobbycn 2003-06-25
- 打赏
- 举报
加一个TTimer就好了。
