[Scooter]

Здраствуйте помогите решить такую проблемку. Есть StringGrid из 3 колонок и 20 строк... Свойство goRowSelect стоит в True...

Проблема вот в чем, если кликать левой кнопкой мыши по этому гриду то выделяеться определённая строка как и надо, можно без проблем узнать номер строки и чтото с ней сделать... А если нажать на Grid правой кнопкой мыши то строка не выделяеться... Как заставить правую кнопку на гриде работать также, как работает левая, или как выделить эту строку программно, которая лежит под курсором через правую кнопку??? Помогите пожалуста уже всю голову себе изломал...

[Scooter]

Частично решил проблемку:

Код:

1 2 3 4 5 6 7

procedure TFReklam.StringGrid1ContextPopup(Sender: TObject;   MousePos: TPoint; var Handled: Boolean);   Var   Row,Col:integer; begin (Sender as TStringGrid).MouseToCell(MousePos.X,MousePos.Y,Col,Row); end;

Но как теперь выделить нужную строку самому зная номер строки непойму... Помагите пожалуста господа програмисты

Используй теги!!!!

[Scooter]

Извиняюсь, постоянно забываю про теги... Ну так что никто не подскажет по теме?

[~ SaM ~]

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

procedure SetGridFocus(SGrid: TStringGrid; r, c: integer); var   SRect: TGridRect; begin   with SGrid do   begin     SetFocus; {Передаем фокус сетке}     Row := r; {Устанавливаем Row/Col}     Col := c;     SRect.Top := r; {Определяем выбранную область}     SRect.Left := c;     SRect.Bottom := r;     SRect.Right := c;     Selection := SRect; {Устанавливаем выбор}   end; end;

Использование:

Код:

1	SetGridFocus(StringGrid1, 10, 2);

[Scooter]

~ SaM ~ +1 ... Спасибо за помощь еще не пробовал но вижу что все должно заработать .... Большое тебе человеческое спасибо

[Scooter]

Работает !!!