Default property überladen

[Delphi.Narium]

Delphi-Quellcode:

unit MyListBox;

interface

uses
  SysUtils, Classes, Controls, StdCtrls, Dialogs, Graphics;

type
  TMyListBox = class(TListBox)
  public
    constructor Create(AOwner: TComponent); override;
  end;

procedure Register;

implementation

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

constructor TMyListBox.Create(AOwner: TComponent);
begin
  inherited create(AOwner);
  if (csDesigning in ComponentState) then Exit;
  Color := clLime;
end;

end.