TInterfacedObject Subclass

[sx2008]

Warum nicht so?
TSkinListBox = class(TListBox, ISkinListBox);
In der Klasse TComponent sind die Methoden _AddRef, _Release und QueryInterface schon implementiert.
Deshalb kann man Komponenten und Controls als Basisklasse verwenden und damit weitere Interfaces implementieren.

[EWeiss]

Zitat von sx2008:

Warum nicht so?
TSkinListBox = class(TListBox, ISkinListBox);
In der Klasse TComponent sind die Methoden _AddRef, _Release und QueryInterface schon implementiert.
Deshalb kann man Komponenten und Controls als Basisklasse verwenden und damit weitere Interfaces implementieren.

Weil es eine Nonvcl ListBox mit OwnerDraw ist.

gruss

[sx2008]

Zitat von EWeiss:

Weil es eine Nonvcl ListBox mit OwnerDraw ist.

Ach ja, stimmt ja; IMHO eine totale Zeitverschwendung.
Aber jeder soll seine eigenen Erfahrungen machen...

[EWeiss]

Zitat von sx2008:

Zitat von EWeiss:

Weil es eine Nonvcl ListBox mit OwnerDraw ist.

Ach ja, stimmt ja; IMHO eine totale Zeitverschwendung.
Aber jeder soll seine eigenen Erfahrungen machen...

OT:
Um ein Controll vernünftig zu Überzeichen kommt man da nicht drumherum.
Und ob es eine Zeitverschwendung ist ?
Für mich nicht!

Und Erfahrungen habe ich gute gemacht.

gruss

[EWeiss]

Auch wenn es eine blöde frage zu sein scheint.
aber wie komme ich an die WinProc der Hauptanwendung?

Denke das ich das problem erkannt habe.
ich muss die Winproc der Anwendung subclassen nicht meine eigene.

PrevWndProc := SetWindowLong(WinHandle, GWL_WNDPROC, integer(@WndProc));

anstelle von
PrevWndProc := SetWindowLong(WinHandle, GWL_WNDPROC, integer(@TSkinListBox.ListBoxProc));

Aber ich habe die Vermutung ... Gar nicht!

gruss