一个BCB中关于画布Canvas方面的问题

[lxqlyld]

我用这个代码显示“新春快乐，万事如意”：
Canvas->Font->Size=20;
Canvas->Font->Name="隶书";
Canvas->Font->Color=clRed;
Canvas->Brush->Color=clGreen;
Canvas->TextOut(20,30,"新春快乐，万事如意")；

如果让这行文字消失，代码要怎么写啊

[sololie]

你这些代码是卸载 OnPaint 里的么

[sololie]

你这些代码是写在 OnPaint 里的么

[lxqlyld]

引用 2 楼 sololie 的回复:

你这些代码是写在 OnPaint 里的么

是的

[sololie]

void __fastcall TForm1::FormPaint(TObject *Sender)
{
    Canvas->Font->Size=20;
    Canvas->Font->Name="隶书";
    Canvas->Font->Color=clRed;
    Canvas->Brush->Color=clGreen;
    TRect r = Rect(20,30,20+Canvas->TextWidth(txt), 30+Canvas->TextHeight(txt));
    Canvas->FillRect(r);
    Canvas->TextOut(r.left,r.top,txt);
}
// 显示另一句话
void __fastcall TForm1::btn1Click(TObject *Sender)
{
    txt = "新春快乐，万事如意";
    Repaint();
}

// 擦掉
void __fastcall TForm1::btn2Click(TObject *Sender)
{
    txt = "";
    Repaint();
}
// 显示另一句话
void __fastcall TForm1::btn3Click(TObject *Sender)
{
    txt = "元旦快乐，万事胜意";
    Repaint();
}

[sololie]

用一个全局变量 String txt;

[sololie]

这两行可以去掉，如果你不考虑保留背景色的话 //TRect r = Rect(20,30,20+Canvas->TextWidth(txt), 30+Canvas->TextHeight(txt)); //Canvas->FillRect(r); 直接这样就可以了 Canvas->TextOut(20,30,txt);

[lxqlyld]

引用 6 楼 sololie 的回复:

这两行可以去掉，如果你不考虑保留背景色的话 //TRect r = Rect(20,30,20+Canvas->TextWidth(txt), 30+Canvas->TextHeight(txt)); //Canvas->FillRect(r); 直接这样就可以了 Canvas->TextOut(20,30,txt);

非常感谢，解决了