Delphi - DbNavigator

Hola:

Como puedo controlar, cuando el usuario pulsa el boton de grabar, si el registro existe en la tabla? Lo he intentado hacer dentro del evento OnClick del DbNavigator, pero cuando entra en ese evento, el error ya ha sido tratado por DELPHI.

Muchas Gracias

Pues hace poco, tenia el mismo problema, pero lo resolví, selecciona tu tabla, ve al evento OnErrorPost(algo asi..), ahi puedes controlarlo, que mande el mensaje que tu quieras P/e "El Registro ya Existe", que tengas suerte...
JABS..
[email protected]

para delphi 3 en adelante:

procedure TForm1.TTable1PostError(DataSet:TDataSet; E: EDatabaseError; var action: TDataAction);
var i:Integer;
begin
if(E is EDBEngineError) then
with (E as EDBEngineError) do
for i:= Pred(ErrorCount) downto 0 do
with Errors[i] do
if ErrorCode = DBIERR_KEYVIOL then
begin
MessageBeep($FFFF);
MessageDlg(´Tu mensaje´,mtWarning,[mbOk],0);
Action:= daAbort;
Break;
end
Else
begin
MessageBeep($FFFF);
MessageDlg(´Error al actualizar la información, si el error persiste reinicie el sistetema...´,mtWarning,[mbOk],0);
Action:= daAbort;
Break;
end;

TTable1.Cancel;
end;

este es un ejemplo de cuando se pulsa unos de los botones, en este caso el boton cancel.

procedure Tcierrecaja.DBNavigator2Click(Sender: TObject;
Button: TNavigateBtn);
begin
if button = nbcancel then
button2.Enabled := false;
end;

tambien les dejo este otro truco sirve para detectar cualquier boton pulsado.

Podemos determinarlo usando el evento OnClick del propio TDBNavigator

Un ejemplo:



procedure TForm1.DBNavigator1Click(Sender: TObject; Button:
TNavigateBtn);
var
BtnName: string;
begin
case Button of
nbFirst : BtnName := 'nbFirst';
nbPrior : BtnName := 'nbPrior';
nbNext : BtnName := 'nbNext';
nbLast : BtnName := 'nbLast';
nbInsert : BtnName := 'nbInsert';
nbDelete : BtnName := 'nbDelete';
nbEdit : BtnName := 'nbEdit';
nbPost : BtnName := 'nbPost';
nbCancel : BtnName := 'nbCancel';
nbRefresh: BtnName := 'nbRefresh';

end;
MessageDlg(BtnName + ' button clicked.', mtInformation, [mbOK], 0);
end;