如何在OnPaint消息触发前清除TImage控件的内容？

我的程序启动时会在Form1的TImage控件Image1中绘制图形。当用户通过组合框选择不同选项后，需要清除Image1原有内容并重新绘制新图形，但目前新内容直接叠加在旧内容上，调用Invalidate()也没解决问题。

初始输出：

切换选项后输出（黄色标记为残留的旧内容）：

修正后的代码 #

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"

//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;

TColor oldColor;
// 新增：记录当前要绘制的图形类型
enum DrawType { dtBoxes, dtRectangle, dtCircle };
DrawType currentDrawType = dtBoxes;

//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormPaint(TObject *Sender)
{
    // 清除Image1全部内容
    oldColor = Image1->Canvas->Brush->Color;
    Image1->Canvas->Brush->Style = bsSolid;
    Image1->Canvas->Brush->Color = clWhite;
    // 用Image实际尺寸填充，避免固定值适配问题
    Image1->Canvas->FillRect(Image1->ClientRect);
    Image1->Canvas->Brush->Color = oldColor;

    // 根据当前类型绘制对应图形
    switch(currentDrawType)
    {
        case dtBoxes:
            DrawBoxes();
            break;
        case dtRectangle:
            DrawRectangle();
            break;
        case dtCircle:
            DrawCircle();
            break;
    }
}
//---------------------------------------------------------------------------

void __fastcall TForm1::DrawBoxes(void)
{
    Image1->Canvas->Rectangle(10,10,30,30);
    Image1->Canvas->Rectangle(50,50,70,70);
}

//---------------------------------------------------------------------------
void __fastcall TForm1::cbDropDownSelect(TObject *Sender)
{
    // 更新当前绘制类型
    if (ComboBox1->Text == "1") {
        currentDrawType = dtRectangle;
    }
    else {
        currentDrawType = dtCircle;
    }
    // 触发重绘，让FormPaint执行清除+绘制流程
    Image1->Invalidate();
}

//---------------------------------------------------------------------------

void __fastcall TForm1::DrawRectangle(void)
{
    Image1->Canvas->Rectangle(20,20,200,130);
}

void __fastcall TForm1::DrawCircle(void)
{
    Image1->Canvas->Ellipse(50,50,100,100);
}

问题原因与解决思路 #

原代码的核心问题是：组合框事件中直接调用绘制函数在Canvas上叠加绘图，且Invalidate()触发重绘时，FormPaint会重新绘制初始图形，导致新旧内容重复叠加。

正确的解决逻辑是统一绘制入口：

1. 用变量记录当前需要绘制的图形类型
2. 组合框事件仅更新类型变量，再调用Invalidate()触发重绘
3. 在FormPaint中先清除整个Image画布，再根据当前类型绘制对应图形

如果不想大幅修改代码，也可以在每个绘制函数开头先清除画布：

void __fastcall TForm1::DrawRectangle(void)
{
    // 先清除内容
    Image1->Canvas->Brush->Color = clWhite;
    Image1->Canvas->FillRect(Image1->ClientRect);
    // 再绘制新图形
    Image1->Canvas->Rectangle(20,20,200,130);
}

但这种方式在图形类型增多时会产生大量重复代码，不如统一重绘的方式优雅。

内容的提问来源于stack exchange，提问作者Skypilot65