Creacion de una clase

[[maeyanes]]

Hola...

El uso de "setters" y "getters" para definir las propiedades depende mucho de como quieres que se comporten estas. Si solo necesitas que la propiedad guarde un valor, puedes indicarle que use una variable privada:

Código Delphi [-]
TMyClass = class
private
  FName: string;
public  // o published
  property Name: string
    read FName
    write FName;
end;

Pero si quieres que al asignar una propiedad se produzca un efecto secundario (repintar el control) o se calcule el valor de la propiedad, entonces usas los métodos:

Código Delphi [-]
TMyClass = class(TGraphicObject)
private
  FColor: TColor;

  procedure SetColor(Value: TColor);
published
  property Color: TColor
    read FColor
    write SetColor;
end;

implementation

procedure TMyClass.SetColor(Value: TColor);
begin
  if FColor <> Value then
  begin
    FColor := Value;
    Invalidate
  end
end;

Espero que esta pequeña explicación disipe tu duda.


Saludos...