type
//用设定边缘的空白
tposition=record //指定光标的行和列
row:longint;
col:longint;
end;
tcoolmemo=class(tcustommemo)
private
fmargin:byte; //边距的大小
fedgecolor:tcolor;//边框的颜色
fentercolor:tcolor;//鼠标进入时边框内侧的框颜色
mousein: boolean; //标识鼠标是否进入
function getposition:tposition;//光标的行和列
procedure setmargin(value:byte);
procedure setedgecolor(value:tcolor);
procedure setentercolor(value:tcolor);
//下面两个获得delphi的内部消息,鼠标进入和离开时发生
