haitao：
Tedit.text:=newstr;使用的是property Text: TCaption read GetText write SetText;
[阅读: 326] 2007-01-04 14:24:13
procedure TControl.SetTextBuf(Buffer: PChar);
begin
Perform(WM_SETTEXT, 0, Longint(Buffer));
Perform(CM_TEXTCHANGED, 0, 0);
end;
怎样才能模拟手工输入一个字符串去覆盖原来的字符串？－－这样才能undo的
| -ICP -IDC -ISP |