复习API又拿分(30分)

替换所选文本<br>var<br> &nbsp;num: integer;<br> &nbsp;buffer: array[1..1024] of char;<br> &nbsp;str: string;<br>begin<br> &nbsp; &nbsp;num := SendMessage(handle, EM_GETSELTEXT, 0, longint(@buffer));<br> &nbsp; &nbsp;str := string(buffer);<br> &nbsp; &nbsp;showmessage(str );<br> &nbsp; &nbsp;str := str + str;<br> &nbsp; &nbsp;SendMessage(handle, EM_REPLACESEL, 1, longint(@str));<br>end;<br>为什么不成功

仔细看MSDN就知道，EM_GETSELTEXT只有RICHEDIT才有这个消息

Delphi的代码窗口应该是richedit吧

Delphi的代码窗口不是TRichEdit类继承的.故不是richedit

用RichEdit做Delphi那种代码窗口？你会累死！Delphi的那个代码窗口类名是TEditControl，肯定不是RichEdit.

[]