Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Conexión con bases de datos (https://www.clubdelphi.com/foros/forumdisplay.php?f=2)
-   -   DBGrid con calendario (https://www.clubdelphi.com/foros/showthread.php?t=21829)

muli 29-05-2005 18:59:14

DBGrid con calendario
 
Conoceis la forma de que cuando se está en una rejilla introduciendo datos, y ese dato es una fecha que despliegue un calendario, o algún componente que lo realice.

Gracias.

Saludos a todos

marcoszorrilla 29-05-2005 21:50:15

Mira este ejemplo, necesitas una rejilla conectado a un datasource con un campo del tipo Date, yo lo he hecho con DbDebmos - Orders.db y un DateTimePicker con la propiedad Visible actividad inicialmente.

Código Delphi [-]
  implementation
  
  {$R *.DFM}
  
  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);
  
    DateTimePicker1.Date:=Trunc(Table1Saledate.Value);
    end;
  end;
Un Saludo.


La franja horaria es GMT +2. Ahora son las 04:54:29.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi