Нестандартное закрашивание DBGrid

[Kisma]

Доброе время суток! Искала на форуме, но похожего не нашла. Есть таблица DBGrid, в ней номера системных блоков, пользователи и кабинеты, в которых эти сист.боки расположены. Также три кнопки: улучшение(зеленый), на списание(красный), проблемный(желтый). Вот в этой таблице мне нужно выделить строку с номером, пользователем и кабинетом и при нажатии на кнопку выделить соответствующим цветом строку, но при этом строка должна занестись на другую форму в соответствующую из трех таблиц.
Возможно такое осуществить??? И как? Если не трудно код пожалуйста тоже напишите, я просто новичок в Delphi...заранее спасибо!!!

[Dark_Spirit]

и при нажатии на кнопку выделить соответствующим цветом строку, но при этом строка должна занестись на другую форму в соответствующую из трех таблиц.

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

Это можно сделать. вот код который по клику на определённой строке меняем её цвет, и в принципе получаем какое-то, нужное вам значение
на событие onClick dbgrid-a

 [переменная]:=dbgrid1.DataSource.DataSet.FieldByName([имя_поля ]).Value // получаем номер или ID системного блока

на нажатие кнопки:
переносим значение [переменная] в нужную таблицу (тут уж вам решать как и что переносить, но лучше, я так думаю, записать только номер оборудования)

на событие onDBGridDrawColumnCell

 if <условие которое проверяет наличие номера оборудования в одной из 3 таблиц> 
   then 
    with DBGrid1.Canvas do
      begin
       Brush.Color := clRed;// если на списание
       Font.Color := clWhite;
       FillRect(Rect);
       TextOut(Rect.Left + 2, Rect.Top + 2, Column.Field.Text);
      end;

......... ну и так далее.
Идея понятна?

[Kisma]

да, понятно спасибо большое! Только вот я не пойму как условие это прописать...что-то запуталась

[Dark_Spirit]

нуууууууууу.............. тут конешно можно предложить 2 варианта:
1. ввести дополнительное поле в таблицу де записаны данные о оборудовании , и вносить в него 1 - улучшеные, 2 - списание, 3 - проблемный
тогда код будет таким:

 if  dbgrid1.DataSource.DataSet.FieldByName([имя_поля ]).Value=1
   then 
    with DBGrid1.Canvas do
      begin
       Brush.Color := clGreen;// если на списание
       Font.Color := clWhite;
       FillRect(Rect);
       TextOut(Rect.Left + 2, Rect.Top + 2, Column.Field.Text);
      end;
 if  dbgrid1.DataSource.DataSet.FieldByName([имя_поля ]).Value=2
   then 
    with DBGrid1.Canvas do
      begin
       Brush.Color := clRed;// если на списание
       Font.Color := clWhite;
       FillRect(Rect);
       TextOut(Rect.Left + 2, Rect.Top + 2, Column.Field.Text);
      end;
 if  dbgrid1.DataSource.DataSet.FieldByName([имя_поля ]).Value=3
   then 
    with DBGrid1.Canvas do
      begin
       Brush.Color := clYeelow;// если на списание
       Font.Color := clWhite;
       FillRect(Rect);
       TextOut(Rect.Left + 2, Rect.Top + 2, Column.Field.Text);
      end;

это один пример, на мой взгляд самый простой и доступный

можно конешно посложнее
<условие> - может быть результатом работы запроса который проверяет наличие определённого номера оборудования в одной из таблиц.

[Kisma]

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