Question

delphi 拖动窗体

//声明函数
procedure chitTest(var m:TWMNchittest);
message WM_Nchittest;

//这个函数用来捕获系统消息。一般我们只能单击窗体的标题栏，才能拖动窗体！但我的窗体没有标题栏，我还想让他能拖动。这个函数测试成功了，能实现！即鼠标在客户区（中间白色的地方）单击，也可以拖动窗体
procedure Tform1.chitTest(var m:TWMNCHITTEST);
begin
inherited; //调用默认的事件处理程序
if m.Result=htclient then
//如果鼠标在客户区
m.Result:=htcaption;
//让鼠标在标题栏
end;

窗体上有2个按钮，一个Button1 一个SpeedButton1
当点击Button1时，可以正常触发Button1Click事件，
但点击SpeedButton1时，无法触发SpeedButton1Click事件？而是触发了我上面写的那个函数（窗体拖动事件）..哪位高手教教我，谢谢..
（注：因为我的界面是图片。所以得用到SpeedButton1按钮）

Answer 1

//左边是DataGrid1 右边是2，选中一行，点查询按钮后var MyKey;//查询关键字begin MyKey := DATAGRID1.DataSource.DataSet.FieldByName('查询关键字段').AsString; with DataGrid2.DataSource.DataSet do begin Close; Sql.Text := 'select * from [YourTableName] where [关键字段]='''+MyKey+''''; Open; end;