Mit nem
Command Pattern hätte sich das sauberer lösen lassen:
Delphi-Quellcode:
type
ISearchResultCommand = interface
function CanExecute(AData: TSearchResultObject): Boolean;
procedure Execute(AData: TSearchResultObject);
end;
Das wird dann von allen deinen Operationen z.B.
TBestellungenSchreiben
implementiert.
Ganz nebenbei hast du deinen Code noch schön entkoppelt und deine ganzen Operationen sitzen nicht in den TSearchProvider Klassen sondern sind eigenständig.
Zudem ist das ganze viel flexibler denn nun kannst du bei den search providern eine Liste von ISearchResultCommand reinpacken, gibst den Dingern noch ne Name oder Caption Property und bumms ist das einbauen einer neuen Operation ein Kinderspiel: einfach neue Klasse bauen und zur Liste hinzufügen. Damit kannste mit einer Schleife bequem dein Kontextmenü befüllen.