delphi中如何实现在memo控件中同步显示edit控件中的内容？
答案:2 悬赏:60 手机版
解决时间 2021-03-12 09:17
- 提问者网友：嘚啵嘚啵
- 2021-03-12 03:26
我的意思是，在输入edit控件之后按下一个button要使memo控件中显示edit中的内容。
最佳答案
- 五星知识达人网友：我住北渡口
- 2021-03-12 04:02
在BUTTON事件中添加如下代码：Memo1.Lines.Add(Edit1.text);
要是把Memo1的内容保存用如下代码：Memo1.Lines.SaveToFile('C:\'+'test.txt');
要是把Memo1的内容保存用如下代码：Memo1.Lines.SaveToFile('C:\'+'test.txt');
全部回答
- 1楼网友：拾荒鲤
- 2021-03-12 05:09
这个其实很简单。
var a:integer;
procedure tform1.memo1click(sender: tobject);
begin
a:=sendmessage(memo1.handle,em_linefromchar,memo1.selstart,0); //获取当前行号
edit1.text:=memo1.lines.strings[a]; //记录显示
end;
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯