DBNavigator1

Question

用此方式操作但是出错。
  procedure TForm1.Button1Click(Sender: TObject);
begin
  DBNavigator1.OnClick(Sender,nbEdit);
end;
请问是怎么回事。

Answer 1

//参考如下代码
procedure TForm1.Button1Click(Sender: TObject);
begin
  DBNavigator1.BtnClick(nbEdit);
end;//其实DBNavigator1.OnClick是一个事件属性（方法指针）～～
//你可以用如下代码测试
procedure TForm1.Button1Click(Sender: TObject);
begin
  if not Assigned(DBNavigator1.OnClick) then
    ShowMessage('方法指针为空～！');
end;//如果访问并操作空指针，当然，计算机就会头疼～～//另外这里的Sender是只触发事件的对象～～也许是Button1吧～～