用TStrings.BeginUpdate,EndUpdate
例:
Memo1.Lines.BeginUpdate;
Memo1.Lines.Delete(Index);
Memo1.Lines.Add('AString');
Memo1.EndUpdate;不知道你所描述的是不是可以解决
例:
Memo1.Lines.BeginUpdate;
Memo1.Lines.Delete(Index);
Memo1.Lines.Add('AString');
Memo1.EndUpdate;不知道你所描述的是不是可以解决
最后一句是 Memo1.Lines.EndUpdate;
Memo1.Lines.Move(1,Memo1.Lines.Count);
Memo1.Lines.Delete(Memo1.Lines.Count);
callous(Dialog)的方法虽然不正规,但也可以