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]

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

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;



{
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...