[ecfisa]

Hola.

Hay una superposición de colores que afea el efecto, se soluciona agregando:

Código Delphi [-]
 if (gdSelected in State)and(ACol=1) then
  begin
    StringGrid1.Canvas.Brush.Color:= clWindowte;  // Color fondo StringGrid 
    StringGrid1.Canvas.FillRect(Rect);
    ComboBox1.Left:= Rect.Left + TStringGrid(Sender).Left + 2;
    ComboBox1.Top:=  Rect.Top +  TStringGrid(Sender).Top + 2;
   ...

Pero el comportamiento no es exáctamente como el de PickList...

Saludos.