一个TDBNavigator的继承问题。

Question

我定义了如下类：
type
  mynav=class(TDBNavigator)
  procedure BtnClick(Index: TNavigateBtn);
  end;  myform=class(Tform)
   dn:mynav;
  end;
……
procedure mynav.btnclick(index:tnavigatebtn)
begin
 message('click');
end;
现在我想把实例dn显示在窗口上，如何做得到？

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
begin
    dn:=mynav.Create(Owner);
    dn.Parent:=Self;
end;procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
    dn.Free;
end;

Answer 2

窗体里定义了吗？myform=class(TForm)
...
    dn:mynav;
....