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