[SOLVED] Any way to restrict new record being inserted by down key on DBGrid?

[egsuh]

Currently a new record is inserted automatically when I press down key at the bottom of DBGrid. I'd like a new record is not inserted by pressing down key. And insert is done only by pressing (+) button of DBNavigator.

Is there any way to do this?

[Zvoni]

hmmm.... untested:
Use a blocking variable (Form-Wide boolean?) which is permanently false, and only gets set to True, when clicking on "+".
Then you might be able to use the OnBeforeInsert-Event of the underlying TDataset, there checking if the Blocker is True or False
True = User clicked the "+" --> Proceed with inserting
False = User navigated in the Grid --> "abort" (Hint)

But as i said: untested

EDIT: I seem to remember there being an option for DBGrid, but for the life of me i can't remember/find it

[cdbc]

Hi
Maybe intercept the key in a GridKeyDown-Handler and the set the key to 0
Regards Benny

[LacaK]

Can you try to set in TDBGrid.Options dgDisableInsert ?

[Zvoni]

Hi
Maybe intercept the key in a GridKeyDown-Handler and the set the key to 0
Regards Benny

That would prevent navigating the Grid, no?

[Zvoni]

Can you try to set in TDBGrid.Options dgDisableInsert ?

Yepp, looks like that's the option i was alluding to.
Just tested it with a Project i'm currently working on, which has a DBGrid with a DBNavigator.
set the option, moving with arrow down doesn't add a new row, but clicking on "+" inserts a new row at cursor location.

Now for my own project i only have to find out, how to force the new inserted row to always appear at the bottom of the Grid, irrespective where the cursor was when user clicked on "+"

EDIT: Which alludes to "append" instead of "Insert".
Ah well, off i go hunting.....

[egsuh]

Can you try to set in TDBGrid.Options dgDisableInsert ?

Yes, this does what  I want to do. Thanks a lot.
Waiting Zboni to find some way to "append" record ^^

[Zvoni]

Can you try to set in TDBGrid.Options dgDisableInsert ?

Yes, this does what  I want to do. Thanks a lot.
Waiting Zboni to find some way to "append" record ^^

Found it: --> https://forum.lazarus.freepascal.org/index.php?topic=25438.0

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

1. procedure TFormPowerUser.dbnPowerUsersClick(Sender: TObject;
2.   Button: TDBNavButtonType);
3. Var m:String;
4. begin
5.   Case Button Of
6.     nbInsert: Begin
7.                 IsDirty:=True;
8.                 (Sender as TDBNavigator).DataSource.DataSet.Append;  //THIS ONE
9.               End;
10.     //nbInsert,
11.     nbEdit,
12.     nbDelete: IsDirty:=True;
13.     nbPost  : Begin
14.                 SaveChanges;
15.                 IsDirty:=False;
16.               end;
17.     nbCancel: Begin
18.                 DiscardChanges;
19.                 IsDirty:=False;
20.               end;
21.   end;
22. end;