Hallo cherry,
die Komponente
TCustomControl, von der Du Deine eigene Komponente ableitest, verfügt bereits über eine Font-Eigenschaft. Es ist also gar nicht sinnvoll, eine weitere zu definieren. Du mußt lediglich die vorhandene veröffentlichen.
Versuche es einmal mit dem folgenden Quelltext:
Delphi-Quellcode:
unit EChecker;
interface
uses
SysUtils, Classes, Controls, Graphics;
type
TEChecker =
class(TCustomControl)
protected
procedure Paint;
override;
published
property Font;
end;
procedure Register;
implementation
procedure Register;
begin
RegisterComponents('
enemyleft', [TEChecker]);
end;
procedure TEChecker.Paint;
begin
Canvas.Rectangle(0,0,width,height);
Canvas.Font.Assign(Font);
Canvas.TextOut((width - Canvas.TextWidth(
Name))
div 2, (height - Canvas.TextHeight(
Name))
div 2,
name);
end;
end.
Gruß Hawkeye