据说可以这样解决,但是我没有成功。
function TwwCustomRichEdit.GetSelText: string;override;
...
function TwwCustomRichEdit.GetSelText: string;
var
Length: Integer;
begin
SetLength(Result, (GetSelLength + 1)*2); // Important!
Length := SendMessage(Handle, EM_GETSELTEXT, 0, Longint(PChar(Result)));
SetLength(Result, Length);
end;
function TwwCustomRichEdit.GetSelText: string;override;
...
function TwwCustomRichEdit.GetSelText: string;
var
Length: Integer;
begin
SetLength(Result, (GetSelLength + 1)*2); // Important!
Length := SendMessage(Handle, EM_GETSELTEXT, 0, Longint(PChar(Result)));
SetLength(Result, Length);
end;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货