调用Handle函数系统报错,可已经在USES中加入了Windows,
程序中有如下语句:SendMessage(Handle,Message.Msg,Message.WParam,Message.LParam);
错误信息:
[Error] Unit1.pas(40): Undeclared identifier: 'Handle'
[Error] Unit1.pas(20): Unsatisfied forward or external declaration: 'TForm1.MouseWheel'
[Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas'
程序中有如下语句:SendMessage(Handle,Message.Msg,Message.WParam,Message.LParam);
错误信息:
[Error] Unit1.pas(40): Undeclared identifier: 'Handle'
[Error] Unit1.pas(20): Unsatisfied forward or external declaration: 'TForm1.MouseWheel'
[Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas'
解决方案 »
- 用EmbeddedWB怎么修改浏览器的appName???
- 照片加载问题
- Syntax error in INSERT INTO statement(ACCESS數據庫插入時發生的問題!救命啊!)
- 求二个控件名为ExPressDBTree 1.31,QuantumGrid 3.22 ,这二个控件我在网上找了很久,却没找到,
- 数据库连接问题,提示错误,请高手分析!
- 麻烦大家帮我看看这个类中的属性定义有什么不对的地方?小弟是初学delphi的面向对象编程。
- Delphi是属于面向对象的开发软件吗?
- 怎样让一个TSpeedButton获得焦点
- Delphi 中的COM 應用 (有分加!) ~~~SOS~~~
- 怎样使一个 edit.text 保存上一次执行是输入的内容?
- 100分关于防止同时操作一条纪录
- DBGrid显示问题
unit Unit1;interfaceuses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, ADODB, ExtCtrls, DBCtrls, Grids, DBGrids ;type
TForm1 = class(TForm)
DBGrid1: TDBGrid;
DBNavigator1: TDBNavigator;
ADOTable1: TADOTable;
DataSource1: TDataSource; private
{ Private declarations }
public
{ Public declarations }
procedure MouseWheel(var Message: TMessage); end;var
Form1: TForm1;implementation{$R *.dfm}procedure MouseWheel(var Message: TMessage);
begin
Message.Msg := WM_KEYDOWN;
Message.lParam := 0;if Message.WParam > 0 then
Message.WParam := VK_UP
else
Message.WParam := VK_DOWN;SendMessage(form1.Handle,Message.Msg,Message.WParam,Message.LParam);end;end.
procedure Tform1.MouseWheel(var Message: TMessage);//这是方法。要加限定
应该是
procedure TForm1.MouseWheel(var Message: TMessage);其他的没问题了,改为Form1.Handle是对的
改过以后,程序可以运行,但不知怎么回事,用MOUSE的滚轮还是不能使DBGRID1组件的竖滚动条,用鼠标的滚轮可以滚动