TDBDatetimepicker

[nenufer]

Muxas gracias. Ahora si q me funciona. Xo tengo una duda: Es un componente q yo tengo instalado en mi delphi, si lo utilizo y cambio de ordenador para seguir con mi aplicacion seguira funcionando, o no? En el caso de q no que debo hacer para q me funcione.

Gracias

[roman]

El ejecutable de una aplicación hecha con esa componente funcionará sin problemas en cualquier pc. Pero si lo que quieres es trabajr con el código fuente de la aplicación, entonces sí deberás instalar la componente en el delphi de la otra pc.

// Saludos

[nenufer]

Es lo q me imaginaba. Si en vez de utilizar el TDbdaDatetimepicker utilizo el Tdatetimepicker,para que cambie de registro vi en el foro q lo podia hacer en el evento afterscroll de la tabla. Yo hago lo siguiente. En el evento updateData del datasource le asigno la fecha del datetimepicker al campo. Hasta aki todo bien,xo cuando le pongo en el afterscroll,para que al cambiar de registro cambie tb el contenido segun el registro, me da un error:

Access violation at adress 004FF41E in module PVideo.exe.

El codigo que os digo es :

Código Delphi [-]
procedure TDM.DtsSociosUpdateData(Sender: TObject);
begin                                              //Datetimepicker 
  TblSociosFecha_Alta.Value:=FrmSocios.DtTmFecha_Alt.Date;
end;

Código Delphi [-]
procedure TDM.TblSociosAfterScroll(DataSet: TDataSet);
begin
                                                //Datamodule-->DM   
  FrmSocios.DtTmFecha_Alt.Date := DM.TblSociosFecha_alta.Value;
end;

Muxas gracias.

[Thales]

Básicamente tienes que tocar los siguientes eventos:

Código Delphi [-]
procedure TForm1.DataSourceDataChange(Sender: TObject; Field: TField);
begin
  DateTimePicker.Date := Table1.FieldByName('Fecha').AsDateTime;
end;
 
procedure TForm1.DataSourceUpdateData(Sender: TObject);
begin
  Table1.FieldByName('Fecha').AsDateTime := DateTimePicker.Date;
end;
 
procedure TForm1.DateTimePickerChange(Sender: TObject);
begin
  DataSource.Edit;
end;

Un saludo

[nenufer]

Gracias creo q con toda esta informacion ya puedo decidir como lo quiero hacer. Muxas gracias otra vez.

[nenufer]

Empezado por Thales

Básicamente tienes que tocar los siguientes eventos:


Código Delphi [-]
procedure TForm1.DataSourceDataChange(Sender: TObject; Field: TField);
begin
DateTimePicker.Date := Table1.FieldByName('Fecha').AsDateTime;
end;

procedure TForm1.DataSourceUpdateData(Sender: TObject);
begin
Table1.FieldByName('Fecha').AsDateTime := DateTimePicker.Date;
end;

procedure TForm1.DateTimePickerChange(Sender: TObject);
begin
DataSource.Edit;
end;

he probado este codigo y me sigue dando el error:
Access violation at adress 004FF41E in module PVideo.exe.

Si alguien sabe porque puede ser. gracias de antemano