¿Se puede usar PickList con TStringGrid?

[Casimiro Noteví]

Pues eso, ¿es posible?.
Si no se puede, entonces, ¿qué otro componente Grid se puede usar que permita poner varias columnas y filas fijas... y que permita PickList?.
A ser posible sin asociarlo a ningún DataSet, igual que el TStringGrid.

[ecfisa]

Hola amigo.

Revisa si esto te puede servir, no lo he probado todavia pero el código aparece en varios sitios, te pongo dos enlaces por las dudas.

• Enlace1
• Enlace2

Un saludo.

[Casimiro Noteví]

Gracias, voy a probarlo
Aunque realmente quería poder usar alguno de los componentes que ya trae delphi.

[ecfisa]

Hola Antonio.

Entonces ( si te animas ) probá este engendro que acabo de teclear...

Código Delphi [-]
...
procedure TForm1.FormShow(Sender: TObject);
var
  i: Integer;
begin
  ComboBox1.Visible:= False;
  for i:= 1 to 10 do ComboBox1.Items.Add(IntToStr(i));
  ComboBox1.ItemIndex:= -1;
end;

procedure TForm1.ComboBox1Exit(Sender: TObject);
begin
  StringGrid1.Cells[StringGrid1.Col,StringGrid1.Row]:= ComboBox1.Text;
  ComboBox1.ItemIndex:= -1;
end;

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
  if (gdSelected in State)and(ACol=1) then
  begin
    ComboBox1.Left:= Rect.Left + TStringGrid(Sender).Left + 2;
    ComboBox1.Top:=  Rect.Top +  TStringGrid(Sender).Top + 2;
    ComboBox1.Height:= Rect.Bottom - Rect.Top;
    ComboBox1.Width:= Rect.Right - Rect.Left;
    ComboBox1.Visible:= True;
  end
  else
    ComboBox1.Visible:= False;
end;
...

Lo hice al vuelo y seguramente tengas que retocarlo un poco.... o al menos ojalá te dé alguna idea.

Un saludo.

[Casimiro Noteví]

Gracias, probaré y a ver con qué me quedo

[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.