Eigene Komponente von TCustomControl > Eigenschaftseditor!

[Hawkeye219]

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