Entweder es hat dieselbe Schrift wie der Parent oder eben nicht. Wenn Du zuerst sagst "Ja, hat es" und dann nachträglich die Schrift änderst, ist es ja wieder eine andere als die des Parents. Von daher ist das Verhalten ja nur logisch und richtig.
[edit] Schnell zusammengeschustert und nicht sonderlich schön, tut aber:
Delphi-Quellcode:
type
TTestLabel = class(StdCtrls.TLabel)
protected
procedure Paint; override;
end;
...
procedure TTestLabel.Paint;
begin
Canvas.Font.Assign(Font);
Canvas.Font.Style := Canvas.Font.Style + [fsBold, fsUnderLine];
Canvas.Brush.Style := bsClear;
Canvas.Font.Color := clNavy;
if AutoSize then
Width := Canvas.TextWidth(Caption);
Canvas.TextOut(0, 0, Caption);
end;
[/edit]
Herzlichen Dank!! Ich fasse es nicht, aber das ist genau was ich wollte
