TFont mit default-Wert beschreiben

[Helmi]

Hallo,

ich hab eine Komponente mit einer Property abgeleitet von TFont.

Jetzt möcht ich gerne dieser Property einen Default-Font-Wert geben.

Wie mach ich das am besten?

ich hab folgendes:

Delphi-Quellcode:

    property BalloonTipTitleFont: TFont read FBalloonTipTitleFont
      write SetBalloonTipTitleFont;

{...}

procedure OnCreate(Sender: TObject);

  //Font für Titel erzeugen
  FBalloonTipTitleFont := TFont.Create;

  with FBalloonTipTitleFont do
    begin
      Charset   := DEFAULT_CHARSET;
      Color     := clBlack;
      Name      := 'MS Sans Serif';
      Size      := 9;
      Style     := [fsBold];

      OnChange  := OnTitleFontChange;
    end;

Nur kann ich im OnCreate reinschreiben was ich will, im OI wird immer ein (wahrscheinlich) Systemwert angezeigt!

[Bernhard Geyer]

Die Initialisierung muss im Konstruktor deiner Komponente erfolgen.