组件制作之四（定制外观）[14]

      framerect(dc, r, borderbrush);

      inflaterect(r, -1, -1);

      framerect(dc, r, outerbrush);

      inflaterect(r, -1, -1);

      framerect(dc, r, outerbrush);

    end;

  finally

    releasedc(handle, dc);  //释放设备描述表

  end;

  deleteobject(borderbrush);   //释放画笔

  deleteobject(enterbrush);

  deleteobject(outerbrush);

end;

end.

安装上去试试吧，比memo1好看多了，功能也强多了。是吗。