как создать свой ListBox?

[BLACK_RAIN]

Сообщение от TaLadno

Посмотри в той теме, как ты наследника делал для TButton и как делаешь для TListBox - найди 100500 отличий, хотя бы для конструктора

type
  TMyListBox = class(TListBox)
  private
    { Private declarations }
  protected
    { Protected declarations }
  public
    { Public declarations }
    constructor Create(AOwner: TComponent); override;
    destructor Destroy;
  published
    { Published declarations }

  end;

procedure Register;

implementation

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

constructor TMyListBox.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
end;

destructor TMyListBox.Destroy;
begin
  inherited;
end;

Где тут отличия?

[BLACK_RAIN]

если создавать компонент в коде, то работает. А на форму не бросается. Почему?

[beegl]

Сообщение от BLACK_RAIN

если создавать компонент в коде, то работает. А на форму не бросается. Почему?

новые события добавите, например: MouseEnter и MouseLeave

type
  TMyListBox = class(TListBox)
  private
    { Private declarations }
    FOnMouseLeave: TNotifyEvent;
    FOnMouseEnter: TNotifyEvent;
    procedure CMMouseEnter(var Message: TMessage); message CM_MOUSEENTER;
    procedure CMMouseLeave(var Message: TMessage); message CM_MOUSELEAVE;
  protected
    { Protected declarations }
  public
    { Public declarations }
  published
    { Published declarations }
    property OnMouseLeave: TNotifyEvent read FOnMouseLeave write FOnMouseLeave;
    property OnMouseEnter: TNotifyEvent read FOnMouseEnter write FOnMouseEnter;
  end;

procedure Register;

implementation

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

{ TMyListBox }

procedure TMyListBox.CMMouseEnter(var Message: TMessage);
begin
  if Assigned(FOnMouseEnter) then
    FOnMouseEnter(Self);
end;

procedure TMyListBox.CMMouseLeave(var Message: TMessage);
begin
  if Assigned(FOnMouseLeave) then
    FOnMouseLeave(Self);
end;

end.