Problem bei Komponenten-Erstellung

[Jens Schumann]

Hallo,
mit folgender Testumgebung habe ich Deinen Source getested:
Delphi 5 SP1
Win2k SP3

Das ist die Formular -unit, die ich dafür verwendet habe

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  BlinkLabel;
type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Private-Deklarationen }
    FBLabel : TBlinkLabel;
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);
begin
  FBLabel:=TBlinklabel.Create(Self);
  FBLabel.Parent:=Self;
  FBLabel.SetBounds(20,20,FBLabel.Width,FBLabel.Height);
  FBLabel.Caption:='BlinkLabel';
  FBLabel.Blinking:=True;
end;

end.

Ich konnte keinen Fehler feststellen. D.h. Dein Code läuft bei mir einwandfrei.