如何在image边框画上线或采用高亮条显示???/(30分)

如何在image边框画上线条或采用高亮条显示??? 并且如何删除它的高亮条或线条

它有一个 Convas 的属性，可是用它的函数进行画，画什么都可以

to:jonix_fu
image是带图片的
我的目的只是要在image加上一个醒目的标记如画一个框或高亮条并且能够清除所画的东东
但不能清除image里的内容,
你所说的cavas,在image装有图片时用canvas会报错并且如何清除所画的东东呢?

你在外面放个PANEL就不行了
想怎么都行了

我将image放在一个panel上了，设置为alclient
procedure TForm1.FrameWindow(Wnd: HWnd);
var
Rect: TRect;
DC: hDC;
OldPen, Pen: hPen;
OldBrush, Brush: hBrush;
X2, Y2: Integer;
begin
GetWindowRect(Wnd, Rect);
DC := GetWindowDC(Wnd);
SetROP2(DC, R2_NOT);
Pen := CreatePen(PS_InsideFrame, 4, 0);
OldPen := SelectObject(DC, Pen);
Brush := GetStockObject(Null_Brush);
OldBrush := SelectObject(DC, Brush);
X2 := Rect.Right - Rect.Left;
Y2 := Rect.Bottom - Rect.Top;
Rectangle(DC, 0, 0, X2, Y2);
SelectObject(DC, OldBrush);
SelectObject(DC, OldPen);
ReleaseDC(Wnd, DC);
DeleteObject(Pen);
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
FrameWindow(Panel1.handle);
end;

如果一定要在Image上画,
你要确保Image上的图片是位图,如果不是要转成位图
然后调用FrameRect();

to 1b3141
framerect的参数是什么?
我找了老半天都没有找到??

接受答案了.