Self y Font en creación de componentes

[ecfisa]

Hola de nuevo.

No lo has visto por que generalmente no se utiliza, ya que como te dije antes es implícito (aunque no es incorrecto usarlo).

Es decir que:

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

Es lo mismo que:

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

Un saludo.