Grids questions(Solved)

[JLWest]

A Listbox has a SetFocus - Listbox1.ItemIndex := 0; which places a highlight bar on item 0;

How can you do that with a TStringGrid?

[howardpc]

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

1. procedure FocusRowCell(aGrid: TStringGrid; aCol, aRow: Integer);
2. begin
3.   if Assigned(aGrid) and (aCol < aGrid.ColCount) and (aRow < aGrid.RowCount) then
4.     begin
5.       aGrid.Options := aGrid.Options + [goSelectionActive, goDrawFocusSelected];
6.       aGrid.Row := aRow;
7.       aGrid.Col := aCol;
8.     end;
9. end;

[JLWest]

@howardpc

Thanks howardpc.

Wonder why they didn't treat this like and event or method. Say

StringGrid1.SetFocus(aRow) or something like that.

[wp]

Wonder why they didn't treat this like and event or method. Say

StringGrid1.SetFocus(aRow) or something like that.

StringGrid1.Row := aRow does it. So why an additional method? The other instructions in Howard's code also move the active column (which you did not request) and set the options to enhance the visibility of the active cell (which you can do in the Object Inspector).

[JLWest]

@wp

I haven't tried howarpc code yet, but I'm pretty sure it works. Now what it does and what I was trying to do is another matter.

What I want is hey stringgrid1 put a blue bar on this row and move the row to the top of the grid or in view at least.

[howardpc]

Make sure you have goRowHighlight and goRowSelect in the grid's Options property.
You can set the grid's Selection property directly in code.

[JLWest]

@howardpc & wp

Works perfect; Of course both of you knew that.

Thanks