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

[mkinzler]

Einfach Eventhandler im Code Setzen:
MyListBox.onDrawItem := ...

[Jazzman_Marburg]

Hallo.

Ähm, sorry aber das verstehe ich noch nicht ganz.
Wenn ich auf einer Form eine ListBox habe und dann im Objektinspektor für diese ListBox im Event OnDrawItem doppelklicke, dann wir ein Prozedur-Rumpf erzeugt wie dieser:

Delphi-Quellcode:

PROCEDURE TMain_frm.ListBox1DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
BEGIN
  // mein Coding
END;

Dort habe ich mein Coding eingefügt.

Du sagst jetzt:

Zitat von mkinzler:

Einfach Eventhandler im Code Setzen:
MyListBox.onDrawItem := ...

Was soll denn dann genau an Stelle von ":= ..." kommen?
Doch nicht das Coding, was ich oben mit "// mein Coding" gekennzeichnet habe, oder?

Wo ist denn die mit dem Objektinspektor erzeugte Prozedur?


Vielen Dank
Jazzman

[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;

[Jazzman_Marburg]

Das hat ein wenig gedauert aber jetzt habe sogar ich es begriffen !

Super - vielen Dank!

Schönen Gruß
Jazzman