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!
mfg
Helmi
>> Theorie ist Wissen, dass nicht funktioniert - Praxis ist, wenn alles funktioniert und keiner weiss warum! <<