如何改变外部richedit20A类型窗口的字体大小和颜色

[slzlren]

procedure TForm1.btn1Click(Sender: TObject);
var
CHARFORMAT: CHARFORMAT2;
begin
fillchar(CHARFORMAT,sizeof(CHARFORMAT),0);
CHARFORMAT.cbSize:=sizeof(CHARFORMAT);
CHARFORMAT.dwMask:=CFM_COLOR;
CHARFORMAT.crTextColor:=clred;
sendmessage($00050802,em_setcharformat,SCF_ALL,integer(@CHARFORMAT));
end;

用以上代码测试无效，请问应该如何写？大家可以用QQ的输入框试，那就是一个richedit20A的类型。

[busfly001]

帮你顶一下。
关注..

[meiZiNick]

有问题请先GOOGLE,BAIDU

[xjjrocker]

获得句柄，然后才能操作。
否则操作什么哦。