Как сделать чтоб в TStringGrid-е сначала подсвечивалась бы строка

← →
UserL (2003-02-07 07:12) [0]

Как сделать чтоб в TStringGrid-е при нажатии на правую кнопку миши сначала подсвечивалась бы строка, на которой была нажата кнопка мыши, а затем бы вылетало бы всплывающее меню...

← →
Song © (2003-02-07 08:13) [1]

Ну так TStringGrid.Row

← →
UserL (2003-02-07 08:35) [2]

Ну так???
Если обрабатывать левую кнопку - то сначала подсвечивает, а затем вылетает попупменю, а вот если на правую кнопку поставить - меню вылетает, а вот строка не подсвечиваеться.
Остаеться подсвеченной та строка, которая и была...

procedure TForm1.StringGrid1MouseDown(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
Var ACol,ARow:Integer;
begin
With TStringGrid(Sender) Do
try
MouseToCell(X,Y,ACol,ARow);
Row:=ARow;
except
end;
end;

И TPopupMenu связываешь с гридом как обычно.

Как сделать чтоб в TStringGrid-е сначала подсвечивалась бы строка Найти похожие ветки