如题。
解决方案 »
- 请问代码 TADOQuery.Properties['Update Criteria'].Value := 0; 是什么意思,谢谢!
- 关于dbgrid组件的滚动条的问题,困扰我好久了
- 使用AdoQuery,如何防止多表更新?
- 关于用DbiPackTable函数紧缩FoxPro表。期待探讨,高手请进。
- 请问如何删除已注册的应用程序服务器
- ado 连接access数据库,用程序中设置connectstring的方法出错了!
- Delphi高手请进!!!如何用Delphi来实现!!!
- 关于条码的几个问题
- 如何用delphi2007做企业通讯web平台
- 怎么用Delphi把Access数据庫导入Oracle中
- 从梦中醒来!
- Access数据库中表的Copy问题
OnKeyDown那些事件处理或者可以的
试一下了,我没时间做了
unit Unit1;interfaceuses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;type
TForm1 = class(TForm)
Edit1: TEdit;
procedure mymessage(var msg:Tmsg;var handled:boolean);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;implementation{$R *.dfm}procedure tform1.mymessage(var msg:tmsg;var handled:boolean);
begin
//判断是否在Edit1上点击右键//
if (msg.message=WM_rbuttondown) and (msg.hwnd=edit1.Handle) then
begin
handled:=true;
exit;
end;
end;procedure TForm1.FormCreate(Sender: TObject);
begin
application.OnMessage:=mymessage;
end;end.
PopupMenu会用吧?:)
加入handled := false;