Frame上面的Tbutton如何模仿TDBNaVegitor?(100分)

上面觉得TDBNavegitor不好看，要用自己的button.
问题是，无论datamodule 的
uses famProgram放到interface还是implement部分，都不能在
dataModule上的Tdataset的事件代码中使用fmProgram,例如
fmProgram.Button1.enabled:=false之类的代码，根本不能写。

可以用第三方控件阿

第三方的不灵活,比如我要按钮竖着来

ActionList有stand Action

(1)、famProgram上加上一个Tdatasource和一个TDBNavegitor(将他的visible属性设为false)
(2)、Tdatasource的数据集选择fdatamodule上的那个数据集，TDBNavegitor的数据源选择（1）中的那个数据源。
(3)、再根据TDBNavegitor的各个按钮的状态，甚至事件来设置你的按钮。
(4)、事件：例如：
procedure TCrkFrm.AppSpnClick(Sender: TObject);
begin
DBNavigator1.BtnClick(nbinsert);
end;
状态：例如：
//记录移动
procedure TNewOrderFrm.DBNavigator1Click(Sender: TObject; Button: TNavigateBtn);
begin
if Not DBNavigator1.Controls[0].Enabled then//第一个按钮，first
begin
FirstSpn.Enabled:=False;
PriorSpn.Enabled:=False;
NextSpn.Enabled:=True;
LastSpn.Enabled:=True;
end
else if Not DBNavigator1.Controls[3].Enabled then
begin
NextSpn.Enabled:=False;
LastSpn.Enabled:=False;
FirstSpn.Enabled:=True;
PriorSpn.Enabled:=True;
end
else
begin
FirstSpn.Enabled:=True;
PriorSpn.Enabled:=True;
NextSpn.Enabled:=True;
LastSpn.Enabled:=True;
end;
end;
//状态改变
procedure TNewOrderFrm.OrderSourceStateChange(Sender: TObject);
begin
if (oderDetailSource.State in [dsinsert,dsedit]) then
begin
SavSpn.Enabled:=True;
CanSpn.Enabled:=True;
end
else
begin
SavSpn.Enabled:=False;
CanSpn.Enabled:=False;
end;
end;

多人接受答案了。