Ver Mensaje Individual
  #2  
Antiguo 26-08-2010
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Reputación: 36
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Hola FGarcia.

Realmente en su momento la Cara Oculta fué mi salvavidas ( y a veces lo sigue siendo).
Pero no tiene por que que ser así para todos...

Busqué algo en la web, espero que te ayude en el tema.

Property:
Link
TNotifyEvent:
Link1
Link2

Igual te hago un brebe y humilde ejemplo del uso de property.
Código Delphi [-]
type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    FNombre: string;
    function GetNombre: string;
    procedure SetNombre(cad: string);
  public
    property Nombre: string read GetNombre write SetNombre;
  end;

var
  Form1: TForm1;

implementation
...
function TForm1.GetNombre: string;
begin
  Result:= FNombre;
end;

procedure TForm1.SetNombre(cad: string);
begin
  if (cad <> FNombre) and (cad >'') then
    FNombre:= cad;
end;

Si llamo la propiedad desde otra unidad:
Código Delphi [-]
begin
  Nombre:= 'Juan';           // Escritura
  Nombre:= '';                 // no tiene efecto
  ShowMessage(Nombre); // Lectura
end;
Fijate como queda protegido el acceso a FNombre por el procedimiento SetNombre.
Además, con un sólo nombre 'Nombre', se referencia el método de lectura y escritura de la variable FNombre.

Cualquier duda específica que tengas, posteala y en lo que esté a mi alcance intentaré ayudarte.

Saludos.

Última edición por ecfisa fecha: 26-08-2010 a las 00:54:47.
Responder Con Cita