TComponentEditor für eigene Actionlist

[Union]

Zitat von Alter Mann:

Delphi-Quellcode:

type
   TSelectionList = IDesignerSelections;

Also, wie sage ich es dem OI, das er die eigenen Action anzeigen soll?

Wenn ich Dich richtig verstehe, willst Du wissen, woher der OI mitbekommt, dass er für die Editierung nicht den Standard-Actionlisteditor sondern den selbst erstellten verwenden soll. Das teilt man mit der Callback ExecuteVerb mit (Die gültigen "Verbs" definiert man über GetVerb und deren Anzahl mit GetVerbCount):

Delphi-Quellcode:

function TSecActionListEditor.GetVerbCount : integer;
begin
   // Wieviele Menüeinträge dürfen es denn sein im Kontextmenü der Komponente
   result := 1;
end;

function TSecActionListEditor.GetVerb(Index : integer): string;
begin
   case Index of
      // Rückgabe Menüeintrag
      0 : result := 'Software Union Security Editor';
   end;
end;

procedure TSecActionListEditor.ExecuteVerb(Index : integer);
begin
   case Index of
      // Menüauswahl auswerten
      0 : ShowSecActionListEditor(Designer, TSecActionList(Component));
   end;
end;

Dazu gibt es auch ein Beispiel in ExecuteVerb