Во время работы с StringGrid`ом, нужно выбраный столбец с данными виделить цветом.

Если надо сменить цвет текста, то делается примерно так (вешать на OnDrawCell):

Код

var HighlightCol : integer; ... procedure TForm1.sg1DrawCell(Sender: TObject; ACol, ARow: Integer;  Rect: TRect; State: TGridDrawState); begin  with sg1 do  begin    if ACol = HighlightCol then Canvas.Font.Color := clRed      else Canvas.Font.Color := Font.Color; // или else exit;    Canvas.TextRect(Rect, Rect.Left+2, Rect.Top+2, Cells[ACol, ARow]);  end; end;

sg1 - TStringGrid;
sg1.DefaultDrawing := true должно быть (вначале рисуется ячейка полностью по дефолту, а потом поверх нарисованного рисуется текст другим цветом).
В переменной HighlightCol хранится № подсвечиваемого столбца. Если ты меняешь эту переменную, то после этого делай sg1.Repaint или sg1.Refresh, чтобы обновить окошко.

Если же тебе надо подсветку делать сменой цвета фона ячеек, то тут сложнее будет: DefaultDrawing := false, и в OnDrawCell отрисовывать ячейку полностью вручную - фон, учитываеть фокус, выделение, писать текст...

По моему он хочет при клике на "шапку" столбца выделить его весь. Решил проверить как это можно сделать, но до конца не довел(есть одна ошибочка), т.к. нет ща времени. Вот код:

Код

type  TSelInfo = record    Selected: Boolean;    SelCol: integer;  end; var  Form1: TForm1;  SelInfo: TSelInfo = (Selected:False; SelCol: 0); implementation {$R *.dfm} procedure TForm1.StringGrid1MouseDown(Sender: TObject;  Button: TMouseButton; Shift: TShiftState; X, Y: Integer); var  ClickCoord: TGridCoord; begin  ClickCoord := StringGrid1.MouseCoord(X, Y);  if ClickCoord.Y < StringGrid1.FixedCols then  begin    SelInfo.Selected := True;    SelInfo.SelCol := ClickCoord.X;  end  else    SelInfo.Selected := False;  StringGrid1.Invalidate; end; procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;  Rect: TRect; State: TGridDrawState); var  OldColor: TColor; begin  if SelInfo.Selected and (SelInfo.SelCol = ACol)     and (ARow > StringGrid1.FixedRows - 1)     and (ACol > StringGrid1.FixedCols - 1) then  begin    StringGrid1.DefaultDrawing := False;    try      OldColor := StringGrid1.Brush.Color;      StringGrid1.Brush.Color := clRed;      FillRect(StringGrid1.Canvas.Handle, Rect, StringGrid1.Brush.Handle);    finally      StringGrid1.Brush.Color := OldColor;    end;  end  else    StringGrid1.DefaultDrawing := True; end;

Огромное спасибо всем за наводку!
Это как раз то, что мне нужно ((почти)).
Но хотелось-бы выделить весь столбец/столбцы цветом, так, чтобы текст в ячейке отображался.
Заранее благодарен!

Я бы исправил код Spawn'а так:

Код

var  SelCol : integer = -1; procedure TForm1.StringGrid1MouseDown(Sender: TObject; Button: TMouseButton;  Shift: TShiftState; X, Y: Integer); var ClickCoord: TGridCoord; begin ClickCoord := StringGrid1.MouseCoord(X, Y); if ClickCoord.Y < StringGrid1.FixedCols then begin   SelCol := ClickCoord.X; end else   SelCol := -1; StringGrid1.Invalidate; end; procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;  Rect: TRect; State: TGridDrawState); var  OldColor: TColor; begin  if not (gdFixed in State) and (ACol = SelCol) then  with StringGrid1 do  begin   Canvas.Brush.Color := clRed;   Canvas.TextRect(Rect, Rect.Left+2, Rect.Top + 2, Cells[ACol, ARow]);  end; end;