property ondragdrop;
property ondragover;
property onenddrag;
//增加这两个事件，处理鼠标进入和离开
property onenter;
property onexit;
property onkeydown;
property onkeypress;
property onkeyup;
property onmousedown;
property onmousemove;
property onmouseup;
property onstartdrag;
end;
procedure register;
implementation
procedure register;
begin
registercomponents('samples', [tcoolmemo]);
end;
constructor tcoolmemo.create(aowner:tcomponent);
begin
inherited create(aowner);
controlstyle := controlstyle - [csframed];
parentfont := true;
