procedure tcoolmemo.wmpaint (var message: tmessage);
begin
inherited;
drawborder;
end;
procedure tcoolmemo.wmnccalcsize (var message: twmnccalcsize);
begin
inherited;
inflaterect(message.calcsize_params^.rgrc[0], -3, -3);
end;
procedure tcoolmemo.drawborder;
var
dc: hdc; //设备描述表
r: trect; //客户区
enterbrush,outerbrush,borderbrush:hbrush; //画笔句柄，api
begin
dc:= getwindowdc(handle); //取得该组件的设备描述表
try
getwindowrect(handle, r); //取得该组件的客户区尺寸
offsetrect(r, -r.left, -r.top); //左上偏移
//创建画笔，两个，分别代码边框，边框内，白色画笔
