TPaintBox如何加边框和高亮度显示？

Question

TPaintBox中已显示着一幅bmp图。我想当Mouse点击该TPaintBox时，这个TPaintBox高亮度显示，并加上一个红色的边框，我用了以下方法，    paintbox->Canvas->Pen->Color = clRed;
    paintbox->Canvas->Rectangle(paintbox->ClientRect);
    
    paintbox->Canvas->Brush->Color = clHighlight;
    paintbox->Canvas->FillRect(paintbox->ClientRect);  结果TPaintBox中显示的图被覆盖了。正确办法是什么？

Answer 1

加一句
PaintBox1.Canvas.Brush.Style := bsClear;

Answer 2

怎么不行    PaintBox1.Canvas.Brush.Style := bsClear;
    paintbox1.Canvas.Pen.Color := clRed;
    paintbox1.Canvas.Rectangle(paintbox1.ClientRect);