Einzelnen Beitrag anzeigen

sqlman

Registriert seit: 5. Jan 2006
Ort: Bochum
7 Beiträge
 
#1

Problem mit Caption bei neuer Komponente basierend auf TLabel

  Alt 26. Mär 2011, 23:23
Hallo Forum,

vielleicht könnte Ihr mir einmal behilflich sein. Ich habe eine Komponente, basierend auf TLabel, erstellt. Im Konstruktor soll die Caption gesetzt werden. Leider tut sich gar nichts. Parallel habe ich mal die Farbe gesetzt. Funktioniert einwandfrei. Frage: Was mache ich bei der Caption falsch, das die nicht gesetzt wird? Ich verwende D7.

Code:
unit raka_timestamp;

interface

uses
   Classes, Controls, StdCtrls;

type
  Ttimestamp = class(TLabel)
  private
    { Private-Deklarationen }
  protected
    { Protected-Deklarationen }
  public
    { Public-Deklarationen }
    constructor Create(AOwner:Tcomponent);override;

  published
    { Published-Deklarationen }
  end;

procedure Register;

implementation

uses dialogs,sysutils,forms;

procedure Register;
begin
  RegisterComponents('Standard',[TTimeStamp]);
end;

constructor Ttimestamp.Create(AOwner:TComponent);
begin
  inherited Create(AOwner);
  Font.Color:=$00FFFF;
  Caption:='test';
end;
end.
Danke für die Hilfe.

Gruß
raka
  Mit Zitat antworten Zitat