delphi7中,在memo3中用鼠标点击一个数据后该数据被写到memo2中,求代码,做毕业设计的,急
memo3和memo2中的数据都是一个数据(如111,112,31的数字)一行的,该数据被写到memo2中后把在memo3中的删掉...
memo3和memo2中的数据都是一个数据(如111,112,31的数字)一行的,该数据被写到memo2中后把在memo3中的删掉
展开
3个回答
展开全部
你先确定一下是用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;
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;
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询