Vielen Dank, manchmal sieht man den Wald vor lauter Bäumen nicht.
nochmal zusammengefasst:
Delphi-Quellcode:
type
TSortCompare = function (const Str1, Str2: String; SortDirection : TSortDirection): integer of object; // of object, ist ja auch logisch
TSortDirection = (sdGridAscending, sdGridDescending);
TWertlisteKlasse = class (...)
function CustomSortCompareFunction(const Str1, Str2: String; SortDirection : TSortDirection): integer;
end;
TMyComboBox = class (...)
property CustomSortCompareFunction[Index : Longint] : TSortCompare read GetCustomSortCompareFunction write SetCustomSortCompareFunction;
end;
MyComboBox.CustomSortCompareFunction[1] := WertlisteKlasse.CustomSortCompareFunction; // ohne "of object" geht es hier schief
Ich hab's mal aufs wesentliche reduriert.
Danke nochmal an himitsu für den Hinweis.