TBanner in eine StatusBar einbinden

[Jens Schumann]

Hallo,
die einfachte Lösung ist es sich einen Nachfahren zu basteln, der Komponenten
aufnehmen kann

Delphi-Quellcode:

unit StatusBarEx;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ComCtrls;

type
  TStatusBarEx = class(TStatusBar)
  private
    { Private-Deklarationen}
  protected
    { Protected-Deklarationen}
  public
    { Public-Deklarationen}
    constructor Create(AOwner: TComponent); override;
  published
    { Published-Deklarationen }
  end;

procedure Register;

implementation

constructor TStatusBarEx.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
  ControlStyle := ControlStyle + [csAcceptsControls];
end;



procedure Register;
begin
  RegisterComponents('Mycomps', [TStatusBarEx]);
end;

end.