Everything DBNavigator

[pixelink]

Okay...

Using a DBNavigator and DBGrid, using SQLLite3

Everything is working with the grid.
The navigator works as expected!

Question...

How do I capture the delete buttons Confirmation (OK& Cancel) response by user?
Also, can I change the buttons to 'Yes' "No" instead of "OK" & "Cancel"?

Thanks

[devEric69]

You can code the confirmation question in the onBeforeDelete, etc, events of your TDataset, with...

Code: Pascal  [Select][+][-]

1. if MessageDlg('....', mtConfirmation, [mbOK,mbCancel], 0) = mrCancel then begin
2.     raise; // silent exception
3. else Begin
4.    .../...
5. end;

[pixelink]

You can code the confirmation question in the onBeforeDelete, etc, events of your TDataset, with...

Code: Pascal  [Select][+][-]

1. if MessageDlg('....', mtConfirmation, [mbOK,mbCancel], 0) = mrCancel then begin
2.     raise; // silent exception
3. else Begin
4.    .../...
5. end;

1) I don't see a "onBeforeDelete" event on the Datasource or DBNav component.
2) I also need to capture the AFTER delete too... sorry failed to mention that.

[hrayon]

If you want capture events using DBNavigator, use BeforeAction procedure.
And verify the pressed button... see:

Code: Pascal  [Select][+][-]

1. ...
2. procedure TForm_Test.DBNavigator_TestBeforeAction(
3.   Sender: TObject; Button: TDBNavButtonType);
4. begin
5.   if (Button = nbDelete) then
6. ...

[pixelink]

If you want capture events using DBNavigator, use BeforeAction procedure.
And verify the pressed button... see:

Code: Pascal  [Select][+][-]

1. ...
2. procedure TForm_Test.DBNavigator_TestBeforeAction(
3.   Sender: TObject; Button: TDBNavButtonType);
4. begin
5.   if (Button = nbDelete) then
6. ...

I don't see those Before/After events properties in the DBNaviagtor
Where are they?

[hrayon]

I was replying reading before you post about then "after" event request.
BeforeAction is the first event when you go to respective tab in object inspector.
But "after" events aren't implemented there.
Probably you need use the dataset component to use them.

[pixelink]

I was replying reading before you post about then "after" event request.
BeforeAction is the first event when you go to respective tab in object inspector.
But "after" events aren't implemented there.
Probably you need use the dataset component to use them.

I know what before/after are

And I am using the DB components for SQL

But, I don't see the Before/After on the events panel for DBNavigator or SQQLQuery or SQLDatasource components.

[devEric69]

1) I don't see a "onBeforeDelete" event on the Datasource or DBNav component.

It is an event in TQuery, TTable, etc, ie in components descending from TDataset

2) I also need to capture the AFTER delete too... sorry failed to mention that.

In TDataset, there are many events like AfterDelete, AfterPost, etc.
There is an error in the code I wrote. You have to use it instead, if you want:

Code: Pascal  [Select][+][-]

1. if MessageDlg('....', mtConfirmation, [mbOK,mbCancel], 0) = mrCancel then begin
2.     Abort; // (<==!!!) silent exception  :-[
3. else Begin
4.    .../...
5. end;

[pixelink]

1) I don't see a "onBeforeDelete" event on the Datasource or DBNav component.

It is an event in TQuery, TTable, etc, ie in components descending from TDataset

2) I also need to capture the AFTER delete too... sorry failed to mention that.

In TDataset, there are many events like AfterDelete, AfterPost, etc.
There is an error in the code I wrote. You have to use it instead, if you want:

Code: Pascal  [Select][+][-]

1. if MessageDlg('....', mtConfirmation, [mbOK,mbCancel], 0) = mrCancel then begin
2.     Abort; // (<==!!!) silent exception  :-[
3. else Begin
4.    .../...
5. end;

Id there documentation that list all these unseen procedures someplace?

[devEric69]

See https://lazarus-ccr.sourceforge.io/docs/rtl/sysutils/eabort.html.

So, you can code:

Code: Pascal  [Select][+][-]

1. uses
2.   sysutils;
3. .../...
4.   sysutils.Abort;

[lucamar]

Id there documentation that list all these unseen procedures someplace?

While the documentation is still somewhat lacking, it's steadily getting better. One thing I always recomending to our newbies is to open the chms and read them through or, if they have no time, at least the lists of of classes and procedures/functions, at a minimum for the RTL and FCL. And, of course, the Reference manual, if not the Users and Programmers ones.

If later one needs a class or function doing something, one always thinks: "Hmm... I kind of remember having seen something like that in the docs..."

[pixelink]

If you want capture events using DBNavigator, use BeforeAction procedure.
And verify the pressed button... see:

Code: Pascal  [Select][+][-]

1. ...
2. procedure TForm_Test.DBNavigator_TestBeforeAction(
3.   Sender: TObject; Button: TDBNavButtonType);
4. begin
5.   if (Button = nbDelete) then
6. ...

Hey @hrayon

I am trying what you suggested.
But, I keep getting "Class identifier expected"

I have doubled and triple checked that  everything is in place. (yes, Form5 is correct)
But, I am missing something.

I usually don't have problems with procedures, but this one is not working.

Code: Pascal  [Select][+][-]

1.  
2. type
3.    procedure DBNavigator1BeforeAction(Sender: TObject; Button: TDBNavButtonType);
4.  
5.  
6. procedure Form5.DBNavigator1BeforeAction(Sender: TObject; Button: TDBNavButtonType);
7. begin
8.   code.....
9. end;  
10.  
11.  

[hrayon]

@pixelink,

I've attached a sample project to help you.

[pixelink]

@pixelink,

I've attached a sample project to help you.

Thank You.
I was missing the T in front of Form1.DbNa....

Sorry, O had a stroke 2 months ago and I can'r concentrate very well.