一个TDBNavigator的继承问题。

[delphi1998]

我定义了如下类：
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显示在窗口上，如何做得到？

[delphi1998]

在上面已经定义了嘛。

[delphi1998]

高手们周一都开会去了么？

[gzmhero]

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;

[delphi1998]

错误提示：没有dn相关的控件。为什么？

[gzmhero]

窗体里定义了吗？

myform=class(TForm)
...
dn:mynav;
....