Propiedad tipo Font

[roman]

Algo así:

type
  TuComponente = class(...)
  private
    FFont: TFont;
    procedure SetFont(Value: Font);

  public
    property Font: TFont read FFont write SetFont;
  end;

En el constructor creas el objeto y lo destruyes en el destructor. Lo imprtante aquí es que en el método SetFont en lugar de simpleente asignar Value a Font usas Assign:

FFont.Assign(Value)

// Saludos

[diegofhernando]

Perfecto... de verdad muchas gracias, ya me sacaste apuros 2 veces hoy. y... si no es mucha molestia quisiera incluir en mi componente algo como la version del mismo, como publico esta propiedad que sea de solo lectura???

Gracias de nuevo.

Salu2

[__cadetill]

Si quieres mostrar tu propio diálogo

  private
    FAbout : string;
  published
    property about: string read FAbout write FAbout;

  TAboutProperty = class(TPropertyEditor)
  public
    procedure Edit; override;
    function GetAttributes : TPropertyAttributes; override;
    function GetValue : string; override;
  end;

implementation

function TAboutProperty.GetValue: string;
begin
  Result := Format('(%s)',[GetPropType^.Name]);
end;

function TAboutProperty.GetAttributes: TPropertyAttributes;
begin
  Result := [paDialog];
end;

procedure TAboutProperty.Edit;
begin
  inherited;

  AboutBox := TAboutBox.Create(Application);
  try
    AboutBox.ShowModal;
  except
    on E: Exception do
      raise ECreateForm.Create(ErrorCreateForm + E.Message);
  end;
end;

uses en D6 o superior : DesignIntf, DesignEditors
uses en D5 (o inferior creo) : DsgnIntf

Si no me he dejado nada, esto es todo

Espero te sirva