In Nachfahren von TListBox das OndrawItem Ereignis auslösen

[Jazzman_Marburg]

Hallo Gemeinde.

Stecke mal wieder im Universum der Ahnungslosigkeit:
Ich brauchte eine ListBox ohne vertikale Scrollbar, und habe dazu einen Nachfahren erzeugt:

Delphi-Quellcode:

TNoVScrolllistbox = CLASS(TListBox)
  PRIVATE
    PROCEDURE WMNCCalcSize( var msg: TMessage ); MESSAGE WM_NCCALCSIZE;
END;

...
MyListBox := TNoVScrolllistbox.create(self);
...

Mit dem entsprechenden Coding (Code zum Verstecken der Scrollbar) konnte ich also die Scrollbar herausoperieren. Soweit prima.

Nun müßte ich auch das Event OnDrawItem meiner neuen MyListBox herankommen (um ihr einen BMP-Background zu verpassen). Mit einer Standard ListBox auf der Form, ging ich dazu bisher in den Objektinspektor und durch einen Doppelklick auf das entsp. Event konnte ich meinen Code einsetzen.

Meine Frage:
Wie macht ich das mit meinem Nachfahren MyListBox, den ich ja erst zur Laufzeit erzeuge?

(Also es geht nicht darum wie ich der ListBox einen enstp. Background einverleibe -- sondern wie ich an das Event OnDrawItem meiner MyListBox herankomme -- ganz so als ob ich im Objektinspektor einen Doppelklick ausführen würde.)

Lieben Dank & Gruß
Jazzman