高手请进,再问Richedit透明问题

Question

我写了一个class从TCustomControl继承,上面Dock一个Richedit,想使其透明.
我从网上找到TransEdit.pas或TransMemo.pas,改写成Richedit可以透明,
但问题是输入时文字不见了~
请高手帮忙~~,在线等待!!另
我直接用TransMemo.pas,显示与输入都正常,换成RichEdit就不行
二者的区别是TTransMemo是从Tmemo继承,TTransRichedt是从TrichEdit继承!

Answer 1

  SetWindowLong(RichEdit1.Handle, GWL_EXSTYLE,
     GetWindowLong(RichEdit1.Handle, GWL_EXSTYLE) or WS_EX_TRANSPARENT);

Answer 2

用Google查TransEdit就可以找到其源码请问,强哥有没有完整的代码,
你说的方法,我用过,输入时很屏幕很花