BorlandTalk.com

Vladimir · Guest

Hi,
I use personaly made message dialogs in my applications
(Ok, OkCancel, YesNo, YesNoCancel, ...) and I tend all
parts of my applications to look uniformed that way.

Is there any way to overide "Delete record?" message
dialog from DBNavigator?

There is a bool property that enables/disables appearance
of that dialog, but I do not see the way how to use
Before & After Delete events.

Vladimir

Antonio Felix · Guest

Hi Vladimir

Use the BeforeDelete Event to show your custom message.
If you call Abort() then the deletion will be aborted, otherwise it will
complete

Sample:
void __fastcall TDmTab::DbParmBeforeDelete(TDataSet *DataSet)
{
AnsiString wMsg = "Do you want to Delete ";
TTable *Db = dynamic_cast<TTable *>(DataSet);
switch( Db->Tag ) {
case 2:
wMsg = wMsg + "do Grupo de Facturação:nn" + DbGrpsGrupo->AsString
+ " - " + DbGrpsDesignacao->AsString;
break;
case 3:
wMsg = wMsg + "do Item de Facturação:nn" + DbItnsGrupo->AsString
+ " - " + DbItnsItem->AsString + " - "
+ DbItnsDesignacao->AsString;
break;
case 4:
wMsg = wMsg + "do Cliente:nn" + DbClntNrCliente->AsString
+ " - " + DbClntNome->AsString;
break;
case 5:
wMsg = wMsg + "do Navio:nn" + DbShpsNrNavio->AsString
+ " - " + DbShpsNome->AsString;
break;
case 6:
wMsg = wMsg + "do Processo:nn" + DbProcNrProcesso->AsString;
break;
case 7:
wMsg = wMsg + "do Detalhe de Processo:nn" + DbDetPGrupo->AsString
+ " /" + DbDetPItem->AsString;
break;
case 11:
wMsg = wMsg + "da Linha da Factura:nn" + DbDetFNrLinha->AsString +
" /" + DbDetFValor->AsString;
break;
}
if ( Msg( wMsg, 2 ) != IDOK ) Abort();
}

Ps:
This is a shared BeforeDelete handler for some tables under a DataModule,
but you will get
the same behaviour for a single table event.

HTH
Antonio

"Vladimir" <sory (AT) muchtrouble (DOT) com> wrote

Vladimir · Guest