выделение ячеек в StringGrid

[belyjj]

Здравствуете, у меня такая проблема: нужно выделить ячейку значение которой присваивается программно другому компоненту СтрингГрид

procedure TForm1.btn1Click(Sender: TObject);
var
  n1,n2,i,j1,j2: Integer;
  Rect: TRect;
  State: TGridDrawState;
  a:Boolean;

begin
  Randomize;
  n1:=StrToInt(StringGrid1.cells[0,0]);
  n2:=StrToInt(StringGrid2.cells[0,0]);
  j1:=1;j2:=1;
  for i:=1 to 5 do
  begin

    Sleep(100);
   if (n1<=n2) then begin StringGrid3.Cells[i-1,0]:=inttostr(n1); n1:=StrToInt(StringGrid1.Cells[j1,0]);j1:=j1+1;
        StringGrid2SelectCell(StringGrid2,3,0,a);sleep(300);continue;end;
   if (n1>n2) then  begin StringGrid3.Cells[i-1,0]:=inttostr(n2); 
//тут тоже нужно выделить ячейку СтрингГрид2
n2:=strtoint(StringGrid2.Cells[j2,0]);j2:=j2+1;sleep(400);Continue;end;
   StringGrid3.Cells[i-1,0]:='11';

   end;
end;

но я не могу разобратся ни с StringGrid1DrawCell, ни с StringGrid2SelectCell,
они выделяют не так как надо, надо чтобы выделеная ячейка перемещялась в конец при присваивании.
Как быть?

Да ещё хотел спросить, как правильно организовать задержку, что в СтрингГрид3 числа помещялись по очереди, те было видно с какого компонента они взяты?


___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[evg_m]

надо чтобы выделеная ячейка перемещялась в конец при присваивании.

это как?!
Любая ячейка характеризуется своими индексами (номер строки . номер столбца). Переместить можно:
- содержимое одной ячейки в другую;
- текущую позицию(изменить индексы выделенной ячейки).

[belyjj]

нужно изменить индексы!
но у меня получается либо одна первая, либо выделяется вся строка.
кстати СтрингГрид у меня из одной строки.
Как правильно поменять индекс, подскажите?

[evg_m]

Как правильно поменять индекс, подскажите?

stringGrid.Row:=1;
stringGrid.Col:=4;

[belyjj]

А проверять в StringGrid1DrawCell как? Selected in State?

[belyjj]

evg_m помоги мне пожалуйста.
Как быть с StringGrid1DrawCell, как передать туда параметры? я пробовал у меня не получается никак.

[belyjj]

Спасибо selected работает вместе с присваиванием, и задержку я сделал, только очистку я не нашол как сделать? очистка ячеек которые не выделены, щя попробую их в белый покрасить

[belyjj]

Есть ещё один вопрос. Мне нужно штобы ячейка на какоето время принимала другой цвет.
Цвет я объявил глобально.

if (условие)  then  begin cvet:=clRed; lab[gg].Col:=lab[gg].Col;ShowMessage('Работает');  end;

lab[gg] это элемент массива типа TStringGrid.

Сообщение выдаётся, но данная ячейка в красный не красится.
Как мне быть?
lab[gg].Col:=lab[gg].Col+1; тоже не особо помогает.
Если после условия цвету не присваивать первоначальное значение, то красный прорисовывается, но не на тех ячейках.

[evg_m]

читайте про OnDrawCell

[belyjj]

StringGrid1.Repaint;