Question

delphi7中，在memo3中用鼠标点击一个数据后该数据被写到memo2中，求代码，做毕业设计的，急

memo3和memo2中的数据都是一个数据（如111，112，31的数字）一行的，该数据被写到memo2中后把在memo3中的删掉

Answer 1

你先确定一下是用memo还是listbox，按你的描述这种情况下通常是用listbox的，而不是memo，而且这种操作一般都是双击或者单击某个按钮，而不是点击某个数据，双击memo3的操作如下，在Memo3的Ondblclick事件中添加
procedure TForm1.Memo3DblClick(Sender: TObject);
var
i:integer;
str:string;
begin
i:=Memo3.CaretPos.Y;
if (i>=0) and (i<Memo3.Lines.Count) then
begin
str:=Memo3.Lines[i];
Memo3.Lines.Delete(i);
Memo2.Lines.Add(str);
end;
end;

Answer 2

唉，毕业设计都的让别人做。。。

思路：点击获取数据，然后赋给memo.line.Text := 数据;
就是这样的。

Answer 3

用MEMO.LINES.ADD