View Single Post
  #3  
Old 31/05/2004
marcoszorrilla's Avatar
marcoszorrilla marcoszorrilla is offline
Capo
 
Join Date: May 2003
Location: Cantabria - España
Posts: 11,221
Rep Power: 10
marcoszorrilla Va por buen camino
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
__________________
Guía de Estilo de los Foros
Quote:
- Ça c'est la caisse. Le mouton que tu veux est dedans.
Reply With Quote