当监测到用户进行某项操作(比如:复制)时,激发程序,该如何实现?
解决方案 »
- 不要预缆,直接打印
- 何处有类似IDE编辑区这样的控件或替代品?
- 开第二贴,帮一帮各位,关于打印对话框
- 我想在combobox里设成只能选择它里面的item,而不能自己输入,怎样做
- 请问:delphi 5.0中有这个控件吗?
- 打印问题
- 熟悉手机编程的请进:关于FBUS协议
- 请问:如何格式化TDataTimePicker的时间成为yyyymmdd(如 20011029)
- 谁知道类似于OICQ的快捷键(alt+ctrl+z)的功能是如何实现的???
- 我用ClientDataset的createdataset创建的dataset,如何删除或释放?或者说如何用最简单的方法清空一个table
- 多窗口中,某一窗口一直位于另一窗口之前
- 这个属性是什么意思,最好详细一点
HOOK:Ctrl+C消息,运行程序
那简单,可以替换消息过程,并截获它的消息unit Unit1;interfaceuses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;type
TForm1 = class(TForm)
edt1: TEdit;
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
procedure OnEdtMsg(var Msg : TMessage);
end;var
Form1: TForm1;
FoldMethod : TWndMethod;
implementation{$R *.dfm}{ TForm1 }{ TForm1 }procedure TForm1.FormCreate(Sender: TObject);
begin
FoldMethod := edt1.WindowProc;
edt1.WindowProc := OnEdtMsg;
end;procedure TForm1.OnEdtMsg(var Msg: TMessage);
begin
if Msg.Msg = wm_copy then ShowMessage('copy');
FoldMethod(Msg);
end;procedure TForm1.FormDestroy(Sender: TObject);
begin
edt1.WindowProc := FoldMethod;
end;end.希望对你有帮助....
如果是系统的,那可以通过钩子的方法