13,825
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
Aurora1113 2004-01-10
- 打赏
- 举报
通过标准行为组件就可以达到这个目的。
例如：
如果在一个Edit组件里，实现采用CTRL+C复制文本。那么首先在窗体中加入一个ActionList组件，这个组件加在何处并不重要，因为它是一个不可见的组件。随后双击它，就可以在弹出的操作列表窗口中添加操作。可以添入两类操作，一种是New Action,一种是New Standard Action,其中的New Standard Action，例如：Cut,Copy,Paste等，是标准的Windows行为，
为了增添操作，在ActionList窗体中右击，在弹出菜单中选择New Action，在此时的菜单浏览器中设置相应的属性。其中的标准属性无须多加。组件的复制操作默认值就是CTRL+C.
例如：
如果在一个Edit组件里，实现采用CTRL+C复制文本。那么首先在窗体中加入一个ActionList组件，这个组件加在何处并不重要，因为它是一个不可见的组件。随后双击它，就可以在弹出的操作列表窗口中添加操作。可以添入两类操作，一种是New Action,一种是New Standard Action,其中的New Standard Action，例如：Cut,Copy,Paste等，是标准的Windows行为，
为了增添操作，在ActionList窗体中右击，在弹出菜单中选择New Action，在此时的菜单浏览器中设置相应的属性。其中的标准属性无须多加。组件的复制操作默认值就是CTRL+C.
jbz 2004-01-10
- 打赏
- 举报
//哈哈，太简单了，下面代码可以 屏蔽TRichEdit中文本的复制功能（Ctrl＋C）
void __fastcall TForm1::RichEdit1KeyDown(TObject *Sender, WORD &Key,
TShiftState Shift)
{
if(Key==67&&GetAsyncKeyState(VK_CONTROL)<0)
{
Key=0;
ShowMessage("禁止复制！");
}
}
//GetAsyncKeyState(VK_CONTROL) 判断Ctrl键是否被按下
void __fastcall TForm1::RichEdit1KeyDown(TObject *Sender, WORD &Key,
TShiftState Shift)
{
if(Key==67&&GetAsyncKeyState(VK_CONTROL)<0)
{
Key=0;
ShowMessage("禁止复制！");
}
}
//GetAsyncKeyState(VK_CONTROL) 判断Ctrl键是否被按下
weill 2004-01-09
- 打赏
- 举报
我也关注
jbz 2004-01-09
- 打赏
- 举报
关注
esiedull 2004-01-09
- 打赏
- 举报
Onkeypress里面判断一下。
