vcl代码,自己看吧!<br><br>function TControl.GetTextBuf(Buffer: PChar; BufSize: Integer): Integer;<br>begin<br> Result := Perform(WM_GETTEXT, BufSize, Longint(Buffer));<br>end;<br><br>procedure TControl.SetTextBuf(Buffer: PChar);<br>begin<br> Perform(WM_SETTEXT, 0, Longint(Buffer));<br> Perform(CM_TEXTCHANGED, 0, 0);<br>end;<br>