Manejo DBnavigator

[kakashi]

Buenas,
soy nuevo en el club y he resuelto varias preguntas por el foro.
En esta ocasion me aqueja una duda, estoy desarrollando una aplicacion para realizar facturas relacionado con tablas, en el form utilizo un DBnavigator, Db grid, varios DBedit y algunos botones. Tengo algunos botones deshabilitados, quisiera habilitar los botones cuando de click en la opcion nbinsert en el DBnavigator y habilitar algunos campos DB edit, como lo hago.
Gracias de antemano por la colaboracion que me puedan brindar

[look]

Empezado por kakashi

Buenas,
soy nuevo en el club y he resuelto varias preguntas por el foro.
En esta ocasion me aqueja una duda, estoy desarrollando una aplicacion para realizar facturas relacionado con tablas, en el form utilizo un DBnavigator, Db grid, varios DBedit y algunos botones. Tengo algunos botones deshabilitados, quisiera habilitar los botones cuando de click en la opcion nbinsert en el DBnavigator y habilitar algunos campos DB edit, como lo hago.
Gracias de antemano por la colaboracion que me puedan brindar

Código Delphi [-]
procedure TForm1.DBNavigator1BeforeAction(Sender: TObject;
  Button: TNavigateBtn);
begin
  case button of
    nbInsert  : ; // activamos o desactivamos los edits y bontones
  end;
end;

[cloayza]

Yo por lo general para realizar esas acciones utilizo el evento del TDatasource, onStateChange;

Código Delphi [-]
{
Los posibles valores de State son:

  TDataSetState = (dsInactive, dsBrowse, dsEdit, dsInsert, dsSetKey,
    dsCalcFields, dsFilter, dsNewValue, dsOldValue, dsCurValue, dsBlockRead,
    dsInternalCalc, dsOpening);

}
procedure TForm1.DataSource1StateChange(Sender: TObject);
begin
       Button1.Enabled:=Datasource1.State in [dsEdit,dsInsert];
       Button2.Enabled:=(DataSource1.State=dsEdit);
       Edit1.Enabled    := (DataSource1.State = dsBrowse);
end;

Saludos...