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

[BLACK_RAIN]

Хочу создать компонент типа ListBox.

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

  end;

procedure Register;

implementation

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

class constructor TMyListBox.Create;
begin
  TCustomStyleEngine.RegisterStyleHook(TMyListBox, TListBoxStyleHook);
end;

class destructor TMyListBox.Destroy;
begin
  TCustomStyleEngine.UnRegisterStyleHook(TMyListBox, TListBoxStyleHook);
end;

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

destructor TmyListBox.Destroy;
begin
  inherited;
end;
end.

При выбрасывании компонента на форму, Delphi вылетает.
Что не так?

[TaLadno]

inherited?

http://programmersforum.ru/showthread.php?t=290569 - тут же получилось как-то?

[zvygin1964]

Я в этом ничего не понимаю, но разве

procedure Register;

может быть после end; //?

[Аватар]

TCustomListBox это уже по сути готовый TListBox. Чего тут своего? Свой, так уж от TCustomMultiSelectListControl, или TCustomListControl, или еще ниже.

может быть после end;

Вообще-то после описания типов. Может. То декларация процедуры в interface, тело процедуры - в implementation. Такая процедура доступна всем юнитам, у которых в области видимости этот юнит. Посмотри исходник любого системного юнита

[BLACK_RAIN]

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

inherited?

http://programmersforum.ru/showthread.php?t=290569 - тут же получилось как-то?

Да, но ListBox не получается.
какой inherited?

[Аватар]

какой inherited?

http://www.delphibasics.ru/inherited.php
И так для любого не знакомого делфийского слова

[BLACK_RAIN]

Сообщение от Аватар

TCustomListBox это уже по сути готовый TListBox. Чего тут своего?

Нужно перекрыть стандартную процедуру отрисовки, чтобы она не рисовала рамку у выделенной строки. Ну и пару своих методов добавить.

[TaLadno]

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

Да, но ListBox не получается.

Ох уж эта копирастия. Копируем, вставляем не понимая - зато яжпрограммист.
ты хоть попытайся вникнуть в то что делаешь.

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

[BLACK_RAIN]

Сообщение от Аватар

http://www.delphibasics.ru/inherited.php
И так для любого не знакомого делфийского слова

всмысле куда тут его? он же есть в конструкторе и деструкторе. Куда его еще?

[TaLadno]

Чукча не читатель, чукча писатель