Question

delphi 如何自动将windows剪贴中，最新的内容，复制到文本框中

delphi 如何自动将windows剪贴中，最新的内容，复制到文本框中delphi 如何侦听后，自动将windows剪贴中最新的内容，复制到文本框中，比如Edit.TXT中
并且这个程序墨认最小化在任务栏上运行

Answer 1

1. 使用剪贴板（Clipboard）

我们可以使用CutToClipboard、CopyToClipboard和PastFromClipboar这三种方法，实现将Memo组件中被选择文本剪切或复制到剪贴板上，以及将剪切板上的内容粘贴到Memo组件中。

将Memo中的选中文本剪切到剪贴板的语句如下：

if Memo1.SelLength>0 then

2. 文本的添加

利用Lines属性，可以增加、删除一行文本，也可以移动一行文本。下面的代码将文本添加到Memo中的最后一行：

Memo1.Lines.Add('将文本添加到Memo中’）；

3. 文件的保存和装载

我们可以将Memo组件中的文本保存成文本文件，也可以将文本文件装载到Memo中。这须要配合使用SaveDialog组件和OpenDialog组件。将Memo中的文本保存为文件的语句为：

If SaveDialog1.Execute then　　　//打开保存对话框

Memo1.Lines.SaveToFile(SaveDialog1.FileName);　　//保存为文件