Una ayuda por favor referente DBGrid...

[marcoszorrilla]

Me da la impresión que lo que quiere es hacer que se despliegue un DateTimePicker cuando entra en la columna de la rejilla que contenga la fecha, acabo de preparar este ejemplo, a ver si acierto con lo que quiere:

Código Delphi [-]

procedure TForm1.DBGrid1ColEnter(Sender: TObject);
begin
  if DbGrid1.Columns [DbGrid1.SelectedIndex].
  Field = Table1Saledate   then
  DateTimePicker1.Visible := True
  else
  DateTimePicker1.Visible := False;
end;

procedure TForm1.DateTimePicker1Change(Sender: TObject);
begin
Table1.Edit;
Table1Saledate.Value:=Trunc(DateTimePicker1.Date);
end;

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
  if (gdFocused in State) and
    (Column.Field = Table1Saledate) then
  begin
    DateTimePicker1.SetBounds (
      Rect.Left + DBGrid1.Left + 1,
      Rect.Top + DBGrid1.Top + 1,
      Rect.Right - Rect.Left,
      Rect.Bottom - Rect.Top);
  end;
end;

Un Saludo

[razadi]

Si, efectivamente eso andaba buscando, aunque no con un datetimepicker, sino con un componente que me pasaron que se llama dcsdete, voy a checarlo..

se los agradesco bastente

[Jech]

Hola a todos una vez encuentro un truco que me sirve de mucho, y todo gracias a esta maravillosa web, bueno me costo un poco entender el ejemplo de Marco pero luego de algunas correciones y/o mal entendidos, al fin lo pude hacer correr a la perfección, primero me costo decifrar lo que significaba la linea...

Table1SaleDate

pues resulto que habia que poner el campo del DBGrid que es tipo Date eso hice y funciono.
Luego me dio un error en la linea...

Table1.FieldByName('Fecha').Value:= Trunc(DateTimePicker1.Date);

tipos incompatibles Variant and Int64.

Lo que decidi hacer fue borrar el Trunc que pero parecia que estaba demas y LUZZZZ el programa corre de las mil Maravillas, muchas gracias por toda la ayuda que prestan a las personas que aun nos falta mucho conocimiento...
Atte. Jech de Bolivia

[Fat]

Buenas,

Estoy intentando aplicar el código en la versión XE6 y no reconoce la sentencia 'Column.Field' e intentado cambiarla por 'Column.Field.FieldName' y tampoco funciona.

Gracias por la ayuda.

[Casimiro Noteví]

Pon tu código.

[Fat]

Código Delphi [-]
if (gdFocused in State) and
    (Column.Field = 'diacobro') then
  begin
    DateTimePicker.SetBounds (
      Rect.Left + DBGrid11.Left + 1,
      Rect.Top + DBGrid11.Top + 1,
      Rect.Right - Rect.Left,
      Rect.Bottom - Rect.Top);

[Casimiro Noteví]

¿Cuál es el mensaje de error?
¿Es un dbgrid estandar?