如何实现复制剪切功能

Question

我想在当MEMO控件中如果有内容被选中，则复制、剪切按钮的Enabled:=True，当memo控件中没有内容选中，则按钮的enabled:=false;是不是应该在onKeypress事件中加入代码？

Answer 1

在MEMO的ONCHANGE事件中写代码:
    读你的MEMO的SelText属性,不为空则表示有选中,否则就没有选中.这不就结了?

Answer 2

很简单！！if memo1.SelLength>0 then
begin
button1.Enabled:=true;
button2.Enabled:=true;
end else
begin
button1.Enabled:=false;
button2.Enabled:=false;
end;
请写在OnKeyUp 和OnMouseUp中。
如果用TRichEdit控件的话，就写在OnSelectionChange即可。

Answer 3

Ailu2002(随风)的方法应该没问题，不过这些小问题自己看看都会了，别动不动就问，这样对自学提高不好

Answer 4

十分感谢各位！也谢谢 swei412(swei)教诲！我是刚刚开始学Delphi，很是糊涂，按书上编写程序，有些地方想不通，但书上又没有说明，所以到网上来咨询，还请各位高手和大侠们多多指点！谢谢！

Answer 5

在Onchange事件写代码没有用。

Answer 6

用 TAction 可以实现，在 Standard 面板中选择 ActionList，然后编辑 ActionList，New 一个 Standard action，有一个 TEditCut 和 TEditCopy 的 Action，可以自动实现你的功能。