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.

zusammenfalten · markieren

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!?

Hat sich erledigt!

es fehlte das

procedure Register; vor

implementaion

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