Methodenzeiger für Methoden in Klassen/Objekten

[David Martens]

Ich habe eine Combobox Komponenten für mehrere Spalten geschrieben. In dieser Komponente gibt es folgende Porperty:

property CustomSortCompareFunction[Index : Longint] : TSortCompare read GetCustomSortCompareFunction write SetCustomSortCompareFunction; Index ist die Spalte.

Das Ganze funktioniert auch super, ABER jetzt will ich die Methode einer Klasse übergeben:

So funktioniert die Zuweisung wenn es eine "eigene" Funktion ist:

Delphi-Quellcode:

function CustomSortCompareFunction(const Str1, Str2: String; SortDirection : TSortDirection): integer;

...

ComboBox.CustomSortCompareFunction[1] := @CustomSortCompareFunction;

aber ich möchte die Funktion an die Klasse binden:

Delphi-Quellcode:

TWertlisteKlasse = class (...)
  function CustomSortCompareFunction(const Str1, Str2: String; SortDirection : TSortDirection): integer;

var
  Wertliste : TWertlisteKlasse; 

...

for i := 0 to Wertliste.ColumnCount - 1 do
begin
  ComboBox.AddCol(Wertliste.Column[i]);
end;

...

ComboBox.CustomSortCompareFunction[1] := @Wertliste.CustomSortCompareFunction;

Hat jemand eine Idee wie ich das bewerkstelligen kann?

Danke David