Hola JAI_ME.
No logré entender que deseas lograr por el contenido del mensaje, pero según el título:
Cita:
Cambiar color por defecto al seleccionar varias celdas de un TStringGrid
|
Podrías hacer:
Código Delphi
[-]
procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
begin
if gdSelected in State then
with TStringGrid(Sender) do
begin
Canvas.Brush.Color := $00E1E1FF;
Canvas.FillRect(Rect);
Canvas.TextRect(Rect, Rect.Left + 2, Rect.Top + 2, Cells[aCol, aRow]);
end;
end;
Saludos.