nuevo componente dbedit y datetimepicker

[cd.rafael]

Cordial Saludo,

Nunca he hecho un componente y quisiera, para empezar, hacer un componente que me permita mostrar una fecha, opcional con hora, que se guarde en la BD.

Sé que existen varios componentes free, pero lo que quiero es entender cómo se hace.

Agradezco de antemano cualquier colaboración.

[[movorack]]

Hola,

Te recomiendo leas esta serie de artículos en Delphi About

[Neftali [Germán.Estévez]]

Bueno, empezar con un componente de Base de datos (sin haber hecho ningun otro antes) tal vez no sea la mejor manera de entrar en el tema, pero bueno...

Empieza por pensar, cual es el componente que te iría bien, para poder usar como "ancestro" del que vas a hacer.
Piensa bien qué propiedades vas a necesitar en tu componente.

A partir de ahí genera un componente "vacío", derivando simplemente y comienza a añadirle código, para obtener el comportamiento que necesitas.

Es bueno, que tal vez sigas algún manual de los existentes por internet (revisa el FTP del club, porque creo recordar que hay alguno también). Sobre todo si no estás familiarizado con el tema de mensajes y con los diferentes ámbistos de propiedades/métodos y la sintaxis de estos (override, published, protected, private,...).

[[ElKurgan]]

Para iniciarse, aqui hay dos buenos tutoriales:

Curso de creación de componentes, de Luis Roche - En castellano
Introduction to component building, de Ray Konopka - En perfecto inglés

El problema es que son un poco antiguos, pero para aprendizaje de la base, estan bastante bien.

Un saludo

[cd.rafael]

Cordial Saludo,

De pronto tienen mucha razón en que debo iniciar con algo más sencillo, pero... me gustan los retos (aunque me estrelle en el intento).

Estoy revisando todos los enlaces que me enviaron para aprender e intentar desarrollarlo.

Cualquier cosita que logre sacar, la comparto con los amigos del foro.

Muchísimas gracias.

[cd.rafael]

Cordial Saludo,

Como mencioné anteriormente... me estrellé, pero así voy aprendiendo.

Ya he avanzado un poco en el componente, pero intento agregarle un tdbedit y no he podido... "Error catastrófico".

La idea es que el componente se base en un TDateTimePicker y que tenga dentro de sus propiedades un TDBEdit. Le agrego al nuevo componente dos pripiedades: DataField y DataSource, las cuales se asignan a las mismas del TDBEdit y hago que cuando cambie la propiedad Date de mi nuevo componente, se la asigne a la propiedad Text del TDBEdit, lo que no sé cómo hacer es cuando el dato cambie al cambiar de registro, se actualice la propiedad date de mi componente.

Alguien me puede decir qué puedo estar haciendo mal?

unit DBDateTimePicker;

interface

uses
    SysUtils, Classes, Controls, Grids, DBCtrls, ComCtrls, DB, Dialogs;

type
    TDBDateTimePicker = class(TDateTimePicker)
        private
            FDBEdit: TDBEdit;
            //
            procedure SetDataField(Value: String);
            function GetDataField: String;
            //
            procedure SetDataSource(Value: TDataSource);
            function GetDataSource: TDataSource;
        protected
            procedure Change; override;
        public
            constructor create(AOwner: TComponent); override;
            destructor destroy; override;
        published
            property DataField:  String read GetDataField write SetDataField;
            property DataSource: TDataSource read GetDataSource write SetDataSource;
    end;

procedure Register;

implementation

procedure Register;
begin
    RegisterComponents('PRUEBA', [TDBDateTimePicker]);
end;

{ TDBDateTimePicker }

procedure TDBDateTimePicker.Change;
begin
    if (Self.DataSource = nil) then
    begin
        Exit;
    end;
    if (Length(Trim(Self.DataField)) = 0) then
    begin
        Exit;
    end;
    if (not TDataSource(FDBEdit.DataSource).DataSet.Active) then
    begin
        Exit;
    end;
    FDBEdit.Text := DateTimeToStr(Self.DateTime);
    inherited Change;
end;

constructor TDBDateTimePicker.create(AOwner: TComponent);
begin
    inherited;
    FDBEdit := TDBEdit.create(Self);
end;

destructor TDBDateTimePicker.destroy;
begin
    FDBEdit.Free;
    inherited;
end;

function TDBDateTimePicker.GetDataField: String;
begin
    Result := FDBEdit.DataField;
end;

function TDBDateTimePicker.GetDataSource: TDataSource;
begin
    Result := Self.DataSource;
end;

procedure TDBDateTimePicker.SetDataField(Value: String);
begin
    FDBEdit.DataField := Value;
end;

procedure TDBDateTimePicker.SetDataSource(Value: TDataSource);
begin
    FDBEdit.DataSource := Value;
end;

end.

Gracias de antemano por toda la colaboración que me puedan brindar.