OTA - komplexer Experte

[API]

Vielleicht kannst du das Erstellen der Menuitems in eine Funktion auslagern, damit der Quellcode besser lesbar ist.

Delphi-Quellcode:

function TuoMethodes.UnitOptimizer_CreateMenuItem(Name: String;  Capton: string);
var 
    mi: TMenuItem;
begin
    mi := TMenuItem.Create(nil);
    mi.Name := Name;
    mi.Caption := Capton;
    Result := mi;
end;

procedure TuoMenues.Initialize;
begin
  if Supports(BorlandIDEServices, INTAServices, NTAServices) then
  begin
    StahliSoftMenuItem := UnitOptimizer_CreateMenuItem('StahliSoftMenuItem', 'StahliSoft');
    NTAServices.AddActionMenu('ToolsMenu', nil, StahliSoftMenuItem, False, True);

   StahliSoftMenuItem := UnitOptimizer_CreateMenuItem('StahliSoftUnitOptimizerMenuItem', 'UnitOptimizer');
    NTAServices.AddActionMenu('StahliSoftMenuItem', nil, UnitOptimizerMenuItem, True, True);

//... usw

end;

Auch das onclick könnte man noch als Parameter übergeben.