iconos TBindNavigator

[juank1971]

bueno amigos continuando con el navegador donde nos quedamos, ahora quise poner un dataset a la clase como propiedad Published con la idea de enlazar ese componente navegador, con un dataset en tiempo diseño y

funciona bien hasta el momento en que quise comunicarme con el dataset para interceptar algun evento del mismo

pero me da error, creo que es la forma en que estoy tratando de instanciar la clase dataset, no estoy seguro como debo hacerlo

me queda de esta manera el fragmento de código: el error lo da en vDataSet.AfterPost:= DataSetAfterPost ;

Código Delphi [-]
TNavegadorGrid = class(TRectangle)
  private
  var
    // Propiedades del contenedor Principal
    vDataSet: Tdataset;
    vbtActivo: TRectangle;
    // botones
    RecBtFirst, RecBtPrior, RecBtNext, RecBtLast, RecBtEdit, RecBtPost, RecBtDelete, RecBtFiltrar, RecBtAppend,
      RecBtRefresh, RecBtCancel: TRectangle;
    // imagenes
    ImFirst, ImPrior, ImNext, ImLast, ImEdit, ImPost, ImDelete, ImFiltrar, ImAppend, ImRefresh, ImCancel: Timage;
    // LabelContador de records
    RecordCantidad, RecordActual: integer;
    LCantidad: TLabel;
  protected
  public
    property btActivo: TRectangle read vbtActivo write vbtActivo;
    constructor Create(AOwner: TComponent); override;
    procedure ImageClick(Sender: TObject);
    procedure ActualizaRegistros;
    procedure HabilitaBoton(bt: Timage; Ha: boolean);
    procedure DataSetAfterPost(DataSet: Tdataset);
  published
    property DataSet: Tdataset read vDataSet write vDataSet;
  end;

procedure Register;

implementation
........
procedure Register;
begin
  RegisterComponents('MyComponents', [TNavegadorGrid]);
end;

constructor TNavegadorGrid.Create(AOwner: TComponent);
begin
  inherited;

  vDataSet.AfterPost:= DataSetAfterPost ;  // aqui me da error a pesar de estar asignado el dataset en el componente en diseño

  Height := 25;
  Width := 268;
  Stroke.Kind := Stroke.Kind.bkNone;
  fill.Color := TAlphaColorRec.White;
  if not(csDesigning in ComponentState) then
  begin
    // RecFirst
    RecBtFirst := TRectangle.Create(Self);
    RecBtFirst.Name := 'RecFirst';
    RecBtFirst.Parent := Self;
    RecBtFirst.Align := TAlignLayout.MostLeft;
    RecBtFirst.Stroke.Kind := Stroke.Kind.bkNone;
    RecBtFirst.fill.Color := TAlphaColorRec.Darkgray;
    RecBtFirst.Width := 25;
    RecBtFirst.Tag := 1;
    // ImFirst
    ImFirst := Timage.Create(RecBtFirst);
    ImFirst.Name := 'imFirst';
    ImFirst.Parent := RecBtFirst;
    ImFirst.Align := ImFirst.Align.alClient;
    ImFirst.Bitmap.LoadFromStream(TResourceStream.Create(HInstance, 'imFirst', RT_RCDATA));
    ImFirst.OnClick := ImageClick;
    ImFirst.Tag := 1;


...........
procedure TNavegadorGrid.DataSetAfterPost(DataSet: Tdataset);
begin
   ShowMessage ('prueba comunicacion con el dataset');
end

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

Has definido la propiedad Dataset:

Código Delphi [-]
 property DataSet: Tdataset read vDataSet write vDataSet;

Y en el Create estás haciendo esto:

Código Delphi [-]
// aqui me da error a pesar de estar asignado el dataset en el componente en diseño
vDataSet.AfterPost:= DataSetAfterPost ;

El problema es que el orden en que se crean los componentes no siempre es el que queremos y cuando se está creando el componente TNavegadorGrid (y se ejecuta el Create) puede ser que el Dataset al que estás intentando acceder no esté creado.
Además lo lógico es utilizar el writer de la propiedad, porque querrás asignar un Dataset que te configuren en el object inspector. Ese vDataset que estás utilizando ahora, simplemente es una variable sin valor (nil).

Define la propiedad de la siguiente manera y los métodos en la parte privada:

Código Delphi [-]
  private
    ...
    procedure DataSetAfterPost(DataSet: Tdataset);
    procedure SetDataset(const Value: TDataset);    

  published
    property Dataset:TDataset read vDataset write SetDataset;

La implementación será la siguiente:

Código Delphi [-]
procedure TNavegadorGrid.DataSetAfterPost(DataSet: Tdataset);
begin
  ShowMessage ('prueba comunicacion con el dataset; Se ha realizado un post');
end;

procedure TNavegadorGrid.ImageClick(Sender: TObject);
begin
  ShowMessage ('TNavegadorGrid.ImageClick');
end;

procedure TNavegadorGrid.SetDataset(const Value: TDataset);
begin
  vDataSet := Value;
  ShowMessage ('Asignado Dataset');
  if not(csDesigning in ComponentState) then begin
    vDataSet.AfterPost:= DataSetAfterPost ;  // aqui me da error a pesar de estar asignado el dataset en el componente en diseño
    ShowMessage ('Asignado evento AfterPost');
  end;
end;

Ahora podrás crear el componente y asignar la propiedad Dataset desde el ObjectInspector.

Si ejecutas un Post, "salta" el evento del componente sin problemas.

[Casimiro Notevi]

Algunas respuestas valen su peso en oro

[juank1971]

Si casimiro es cierto, gracias por estar por aqui todos siempre, yo realmente admiro mucho eso en clubdelphi, desde hace muchos años este foro ayuda muchisimo a todos.
el colmo fue que un dia busqué en internet una duda y la respuesta la habia dado yo mismo en clubdelphi muchisimos años antes jeje, ni recordaba ya eso.

Germán ha sido uno de los ejemplos mas didacticos que hay por aqui, da la impresion que duerme dentro de clubdelphi, siempre esta a al asecho, jejeje.

ha y una cosa que recordé ,german , en una entrevista de no solo delpphi creo, que no sabias de donde habia salido neftali realmente, lo escogiste de nick en la universidad, o algo asi, pero no estabas seguro del porque lo habias tenido antes, queria comentarte que ese es uno de los nombres de Pablo neruda , el famoso poeta chileno su verdadero nombre era Ricardo Eliécer Neftalí Reyes Basoalto, no se si conoces ese dato jjj.


Saludos y gracias por sus comentarios siempre bien recibidos.

[Casimiro Notevi]

Yo no tenía ni idea, pero es un buen nick para un "poeta de la programación", como es nuestro Neftali

Pablo Neruda, seudónimo y posterior nombre legal1​ de Ricardo Eliécer Neftalí Reyes Basoalto (Parral, 12 de julio de 1904-Santiago, 23 de septiembre de 1973), fue un poeta y político chileno.

Empezado por juank1971

el colmo fue que un dia busqué en internet una duda y la respuesta la habia dado yo mismo en clubdelphi muchisimos años antes jeje, ni recordaba ya eso.

También me ha pasado

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

Empezado por juank1971

...una cosa que recordé ,german , en una entrevista de no solo delpphi creo, que no sabias de donde habia salido neftali realmente, lo escogiste de nick en la universidad, o algo asi, pero no estabas seguro del porque lo habias tenido antes, queria comentarte que ese es uno de los nombres de Pablo neruda , el famoso poeta chileno su verdadero nombre era Ricardo Eliécer Neftalí Reyes Basoalto, no se si conoces ese dato jjj.

No lo sabía [juank], gracias por el dato.
Como bien dices, el nick viene de mis años mozos de universidad, creando un proyecto que se llamó Akira (en honor a la película). Que por cierto no hace mucho se volvió a masterizar en 4K (un clásico de culto del anime japonés).