很简单做了下.


procedure TRoundRectPanel.pa;
begin
Canvas.Pen.Color:= FBorderColor;
Canvas.RoundRect(1,1,Width-1, Height-1, 10, 10);
end;
procedure TRoundRectPanel.resize;
var
rgn:HRGN;
begin
inherited;
RoundRect then
rgn:=CreateRoundRectRgn(0,0,width,height,10,10)

rgn:=CreateRectRgn(0,0,width,height);
SetWindowRgn(handle,rgn,True);
DeleteObject(rgn);{}
end;