bpl Komponentendatei bleibt leer

[marcibaer]

Hallo zusammen.

Wahrscheinlich sehe ich den Wald vor lauter Bäumen nicht ...

Ich habe im Netz die TabbedListBox gefunden und mir das Ganze schon mal als Komponente vorbereitet.

Delphi-Quellcode:

unit TabbedListbox;

interface

uses Vcl.StdCtrls,Vcl.Controls,Windows,Messages,Classes;

type

TTabListBox = class(TListBox)
public
procedure CreateParams(var Params: TCreateParams); override;
procedure SetTabStops(Val: array of Integer);
end;

implementation

procedure TTabListBox.CreateParams(var Params: TCreateParams);
begin
inherited CreateParams(Params);
with Params do
Style := Style or lbs_UseTabStops;
end;

procedure TTabListBox.SetTabStops(Val: array of Integer);
begin
SendMessage(Handle, lb_SetTabStops, High(Val) - Low(Val) + 1,
Longint(@Val));
end;

procedure Register;
begin
 RegisterComponents('Samples', [TTabListBox] );
end;

Ich kriege auch die blp Datei erzeugt (über installieren),
aber sie scheint leer zu sein. Hab sie unter Projekt/Optionen/Packages
hinzugefügt, aber beim Klick auf den Komponenten-Button wird nur 'ne leere Liste angezeigt.
Somit erscheint die Komponentensammlung "Samples" auch nicht, wenn ich eine Form anzeige.

Was mache ich falsch!?

[marcibaer]

Hat sich erledigt!

es fehlte das

procedure Register; vor

implementaion

[himitsu]

Wird vielleicht eine falsche (alte) BPL geladen?

Man könnte die PackageCache mal löschen
HKEY_CURRENT_USER\Software\Embarcadero\BDS\8.0\Pac kage Cache
HKEY_CURRENT_USER\Software\Embarcadero\BDS\8.0\Pal ette\Cache

[edit]
faule redbox