DBGrid mousedown and record number

[xinyiman]

Hi guys, I'm trying to get on a mousedown the number of the record on which I want to position myself. If you run the test program that I have attached and you put on the line with field1 = 60 I expect in the Self.Caption to see 60 instead I see other numbers. What escapes me?

Thank you

[howardpc]

Your method returns the row number of the GUI grid, not the record number of the currently displayed record.
Your form has sufficient height for the DBGrid to display 10 grid rows, of which the first row is metadata (field names).
The position of the grid scroll thumb controls which dataset records are scrolled to display in the grid. The grid row number bears no relation to the record number of the data record that happens to have populated that grid row.

[valdir.marcos]

I'm trying to get on a mousedown the number of the record on which I want to position myself.
If you run the test program that I have attached and you put on the line with field1 = 60 I expect in the Self.Caption to see 60 instead I see other numbers.

Setting MemDataset1AfterScroll event will do the trick:

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

1. procedure TForm1.MemDataset1AfterScroll(DataSet: TDataSet);
2. begin
3.      Self.Caption := Self.MemDataset1.FieldByName('field1').AsString;
4. end;
5.  
6. procedure TForm1.DBGrid1MouseDown(Sender: TObject; Button: TMouseButton;
7.   Shift: TShiftState; X, Y: Integer);
8. var
9.    col, row: integer;
10. begin
11.      // Self.DBGrid1.MouseToCell(x,y,col,row);
12.      // Self.Caption := IntToStr(row);
13. end;

[xinyiman]

Your method returns the row number of the GUI grid, not the record number of the currently displayed record.
Your form has sufficient height for the DBGrid to display 10 grid rows, of which the first row is metadata (field names).
The position of the grid scroll thumb controls which dataset records are scrolled to display in the grid. The grid row number bears no relation to the record number of the data record that happens to have populated that grid row.

I had noticed it as I wrote the example. But it was to make people understand what I was trying to achieve.

[xinyiman]

I'm trying to get on a mousedown the number of the record on which I want to position myself.
If you run the test program that I have attached and you put on the line with field1 = 60 I expect in the Self.Caption to see 60 instead I see other numbers.

Setting MemDataset1AfterScroll event will do the trick:

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

1. procedure TForm1.MemDataset1AfterScroll(DataSet: TDataSet);
2. begin
3.      Self.Caption := Self.MemDataset1.FieldByName('field1').AsString;
4. end;
5.  
6. procedure TForm1.DBGrid1MouseDown(Sender: TObject; Button: TMouseButton;
7.   Shift: TShiftState; X, Y: Integer);
8. var
9.    col, row: integer;
10. begin
11.      // Self.DBGrid1.MouseToCell(x,y,col,row);
12.      // Self.Caption := IntToStr(row);
13. end;

Thanks for the tip, but it's not good. Because I have to get it if I pressed the right mouse button. Hence the need to put it in mousedown.

[paweld]

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

1. procedure TForm1.DBGrid1MouseDown(Sender: TObject; Button: TMouseButton;
2.   Shift: TShiftState; X, Y: Integer);
3. var
4.   col, row: integer;
5. begin
6.   Self.DBGrid1.MouseToCell(x,y,col,row);
7.   Self.Caption:=IntToStr(DBGrid1.DataSource.DataSet.RecNo-TSTringGrid(DBGrid1).Row+row);
8. end;

[howardpc]

The TStringGrid cast does not compile for me.
Try this

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

1. type
2.   THackGrid = class(TCustomDBGrid)
3.   public
4.     property Row;
5.   end;
6.  
7. procedure TForm1.DBGrid1MouseDown(Sender: TObject; Button: TMouseButton;
8.   Shift: TShiftState; X, Y: Integer);
9. var
10.    col, row: integer;
11.    hackGrid: THackGrid absolute Sender;
12. begin
13.      DBGrid1.MouseToCell(X, Y, col, row);
14.      case row of
15.        0: Caption := 'mouse not on a dataset record';
16.        else Caption:=IntToStr(DBGrid1.DataSource.DataSet.RecNo - hackGrid.Row + row);
17.      end;
18. end;

[paweld]

Add Grid unit to uses section

[xinyiman]

The TStringGrid cast does not compile for me.
Try this

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

1. type
2.   THackGrid = class(TCustomDBGrid)
3.   public
4.     property Row;
5.   end;
6.  
7. procedure TForm1.DBGrid1MouseDown(Sender: TObject; Button: TMouseButton;
8.   Shift: TShiftState; X, Y: Integer);
9. var
10.    col, row: integer;
11.    hackGrid: THackGrid absolute Sender;
12. begin
13.      DBGrid1.MouseToCell(X, Y, col, row);
14.      case row of
15.        0: Caption := 'mouse not on a dataset record';
16.        else Caption:=IntToStr(DBGrid1.DataSource.DataSet.RecNo - hackGrid.Row + row);
17.      end;
18. end;

Ok, thanks, it works great, both your version and that of paweld. One question, is it to get the record number corresponding to the correct toprow as I do?

[Soner]

Ok, thanks, it works great, both your version and that of paweld. One question, is it to get the record number corresponding to the correct toprow as I do?

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

1. type
2.   THackGrid = class(TCustomDBGrid)
3.   public
4.       function RecNoFromVisibleRow(Value: Integer): Integer;
5.   end;
6.  
7. function THackGrid.RecNoFromVisibleRow(Value: Integer): Integer;
8. begin
9.   Result := Datalink.DataSet.RecNo - Row + TopRow + Value;
10.   if dgTitles in Options then Dec(Result);
11. end;
12.  
13. procedure TForm1.DBGrid1MouseDown(Sender: TObject; Button: TMouseButton;
14.   Shift: TShiftState; X, Y: Integer);
15. var
16.    arow: integer;
17. begin
18.      DBGrid1.MouseToCell(X, Y, col, arow);
19.      if arow<1 then //when you hide header row then arow<0
20.        0: Caption := 'mouse not on a dataset record';
21.      else Caption:=IntToStr(THackGrid(DBGrid1).RecNoFromVisibleRow(arow));
22. end;
23.  
24.  

Edit:
TDbGrid is virtual, this means TDbGrid.RowCount=VisibleRowCount.

[xinyiman]

I have updated the example and if you try to run it now you will see that I try to open a menu on the right mouse button (mousedown). It works well because it selects the right record but moves me to view the records. The toprow property is used on the stringgrid. Here how do I do it?

[xinyiman]

no suggestion?