Cuando y por que usar property

[[David]]

En el ejemplo de Jachguate no llego a comprender , que tiene que ver la clase TEtiquetaV

Por otro lado , según me dijeron tenia que programar una propiedad en mi programa y lo he hecho de esta manera y me funciona , aunque no sé si es la forma más correcta .

Tengo un Datamodule y un FrmReformas .

En el Datamodule ,tengo la tabla de reformas , TReformas con su datasource , y en el formulario tengo una tabla de componentes que corresponde a cada reforma . De tal manera que si en el formulario de Reformas , vas recorriendo la tabla de Reformas , tienen que ir apareciendo los componentes de dicha reforma .

Para ello , la tabla TComponentes , hago un filter para igualar el campo de reforma con el código de la tabla reforma .

Asi en el Datamodule tengo esto :

Código Delphi [-]
 
private
    { Private declarations }
    FNotifyToTFReformas:TDataChangeEvent;
    
  public
    { Public declarations }
    property NotifyToTFReformas:TDataChangeEvent  read FNotifyToTFReformas
                                                       write FNotifyToTFReformas;

// Después en el datasource de la tabla Reformas (esta en el DM)

implementation
procedure TDM.dsReformasDataChange(Sender: TObject; Field: TField);
begin
If  Assigned(FNotifyToTFReformas) Then 
Begin
 FNotifyToTFReformas(Sender, Field);
// luego pongo más código ....  (no tiene que ver con el caso)

end;

Bien esto es lo que he puesto en el DataModule , ahora en el formulario FReformas , donde esta la tabla componentes , he puesto lo siguiente

Código Delphi [-]
public
    // Declaro un procedure
    procedure ReformaDataChange(Sender: TObject; Field: TField);

implementation
procedure TFReformaDataChange(Sender: TObject; Field: TField);
 begin
    Caption := ' Reforma  :    ' + DM.TReformas.FieldByName('titulo').AsString + '  ';
    TComponentes.Filter:='icodReforma = '''+DM.TReformas.FieldByName('Codigo').AsInteger+'''';
    // Aquí aprovecho para cambiar otro Query de Componentes
 end;

// después en el evento Oncreate , hago esto 

procedure TFReformas.FormCreate(Sender: TObject);
begin
DM.NotifyToTFReformas:=ReformaDataChange;
end;

// y en el evento Onclose , donde el formulario se destruye , aprovecho para 
//decir que el formulario es fsMDIChild y se crea y se destruye al entrar y 
//salir -> Action := caFree.

procedure TFReformas.FormClose(Sender: TObject; var Action: TCloseAction);
begin
DM.NotifyToTFReformas:= nil;
end;

[jachguate]

Está bien como práctica de clase, aunque no le hallo sentido a lanzar un evento de esta manera, pues bastaría poner un DataSource asociado al dataset en el módulo de datos en el formulario y atender el evento OnDataChange de este.

Hasta luego.

[donki]

Hola,

Hay que aclarar una cosa, las clases, objetos, interficie, no se utilizan por que si. Nadie se pondrá a hacer una clase para guardar un solo valor.

Tened en cuenta que las clases nacen de modelar los objetos de un problema y tienen su semantica dentro del problema que quieres resolver.

Resumiendo, la teoria de programación orientada a objetos tiene unas especificaciones que a priori no sirven para nada, pero que en diseños complejos pueden salvarte de tener que hacer miles de "xapuzas" para ajustarte al diseño.

No es que sea un purista de las OOP, pero va muy bien conocer todas estas opciones.