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

Question

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的类型。

Answer 1

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