组件制作之四（定制外观）

SendMessage(Handle, EM_GETRECT, 0, Longint(@Rect));

//该消息设定输入区的大小

SendMessage(Handle, EM_SETRECT, 0, Longint(@Rect));

光标的位置：

property Position:TPosition read getPosition;

TPostion是一个结构，其中有行和列两个值：

TPosition=record //指定光标的行和列

row:longint;

col:longint;

end;

getPosition;中还要处理中文的问题，代码有详细说明，如果文本中有中文，一样也可以得到正确的行和列。

最后增加了两个事件

property OnEnter;

property OnExit;

都是从父类中显化出来的，其实就是CM_MOUSEENTER和CM_MOUSELEAVE;消息引起的。，当你想作一个三态按钮，这两个事件很有作用。

好了，重点就是上面那几个了，以下是源代码，其中也有详细的说明：

unit CoolMemo;

interface

uses

Windows, Messages, Classes, Forms,Controls, Graphics, StdCtrls;