[salvica]

Hola ecfisa, gracias, lo del AttributeChanged me lo estaba figurando. Tendré que revisar la pila de CD's que tengo (por si lo encontrase)

Lo del Self, lo está utilizando para todo

Código Delphi [-]
procedure TComponentePrueba.SetFont(Value: TFont);
begin
  try
    Self.Canvas.Font.Assign(Value);
  except
  end;
end;

procedure TComponentePrueba.SetInactive(Value: boolean);
begin
  Self.FShowInactive :=  Value;
  Invalidate;
end;

procedure TComponentePrueba.SetInvertir(Value: boolean);
begin
  Self.FInvertir := Value;
  Invalidate;
end;

Es que es la primera vez que lo veo y me parece extraño.

En fin, gracias de nuevo
Saludos
salvica