In Nachfahren von TListBox das OndrawItem Ereignis auslösen

[mkinzler]

Den Namen der Methode, welche beim Event aufgerufen werden soll

Die Methode musst du natürlich vorher anlegen

Delphi-Quellcode:

TMain_frm = class(TForm)
...
  procedure ListBoxDrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
...
end;

PROCEDURE TMain_frm.ListBoxDrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
BEGIN 
...

procedure TMain_frm.FormCreate(Sender: TObject);
begin
    MyListBox := TNoVScrolllistbox.create(self);
    MyListBox.onDrawItem := ListBoxDrawItem;
...
end;