>>134
DrawCellで塗りつぶしってどうやるのでしょう？


procedure TForm1.Grid1DrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
Begin
　　with Grid1 do begin
　　if (ACol = Col) and (ARow = Row) then begin
　　　Canvas.Brush.Color := clRed;
　　　Canvas.FillRect(Rect);
　　end;
　end;
end;

これで色が変わるかと思ったんですが、選択時のフォーカス部分が赤色になるだけで
選択後に色が変わってくれないんです。
どうすれば良いんでしょうか？
選択後（フォーカスを失った後）も色変更を反映させたいんですが・・