DBGrid2(CellClick) фокус на строке в цвете в DBGrid1

[funball]

Добрый день.

Вопрос прост, но т.к. я не программист, то искал-искал, да не нашел...
Подскажите пжл. как реализовать следующую вещь:

Есть два грида, DBGrid1,DBGrid2.
- в DBGrid1 есть строка, которая выделена цветом с помощью DrawColumnCell.
- выделяется она по щелчку на DBGrid2(CellClick).
Вопрос: как мне при щелчке на DBGrid2(CellClick) сфокусировать ту самую стору в DBGrid1, которая получила цвет?

Сейчас пока вариан такой:
DBGrid2CellClick
begin
--
DBGrid1.Refresh;
DBGrid1.SetFocus;
end.
Естественно фокус на первой строке в DBGrid1. А вот как сделать фокус на той что в цвете?

[Stilet]

А вот как сделать фокус на той что в цвете?

А какая из них в цвете? Как ты вообще отрисовываешь?

[funball]

Сообщение от Stilet

А какая из них в цвете? Как ты вообще отрисовываешь?

"в цвете" имелось ввиду что одна строка грида выделена цветом.
Эта строка в DBGrid1. Цвет устанавливается по CellClick на DBGrid2 по определенным условиям набора данных ADOQuery.

Сам цвет устанавливается событием DrawColumnCell DBGrid1 где если значение совпало с значением ADOQuery DBGrid2, то выделяется строка цветом.
DBGrid2CellClick
begin
--определение значения
DBGrid1.Refresh;--для того чтобы DrawColumnCell DBGrid1 выделело цветом по значению строку в DBGrid1
DBGrid1.SetFocus;

как чтобы вместо DBGrid1.SetFocus зделать чтобы сфокусировать на ту строку, которую выделело DrawColumnCell DBGrid1?

[Stilet]

Вообще навигации в DBGrid запрещены, он полностью подчиняется набору Table или Query Или чего там уу тя. Если ты хочешь поставить курсор на запись, подсвеченную в ДБГриде, тебе нужно знать ее позицию относительно нуля. и перейти к ней:

.First
.MoveBy(номер записи);

Или при перемещении курсора в первой таблице в OnAfterScroll выполняй метод Locate для второго набора (с которым второй грид связан), где указывай значение нужного поля, которое должно быть найдено во второй таблице.

[funball]

Решил реализовать цикл в DBGrid2CellClick:
max:=ADOQuery_1.RecordCount;
p_dlia_videlenia:=ADOQuery_2.FieldB yName('ORDER#').AsString;
for i:=0 to max-1 do
begin
DBGrid1.DataSource.DataSet.RecNo:=i +1;
if DBGrid1.Fields[0].AsString=p_dlia_videlenia then stroka_poiska:=i;
end;
DBGrid1.SetFocus;
DBGrid1.DataSource.DataSet.MoveBy(s troka_poiska);

однако фокус не устанавливается...визуально пробегается по строкам всего грида, и останавливается на последней....
и записи:
DBGrid1.SetFocus;
DBGrid1.DataSource.DataSet.MoveBy(s troka_poiska);
как буд-то игнорируются...что делать?

[funball]

во дела....во ступил....First не указал
все прекрасно работает))
спасибо за помощь!