Código
obs: não tem problema de incompatibilidade se tiver usando o efeito de linhas zebrado na StringGrid, apenas coloque o código embaixo do efeito zebrado}
if gdFocused in State then
with (Sender as TStringGrid).Canvas do
begin
Brush.Color:=clRed;
FillRect(Rect);
TextOut(Rect.Left, Rect.Top, stringgrid2.Cells[acol,arow]);
end;
Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009