OTA - komplexer Experte

[stahli]

Vielen Dank Uwe.
Auf dem Weg bin ich leider nicht weiter gekommen.

Das Video-Tutorial scheint das schon korrekt zu realisieren.

Mein Problem konnte ich jetzt allerdings sehr einfach lösen, indem ich die Initialisierung des DockingExperten auf beiden Wegen in den MainWizard integriert habe:

Delphi-Quellcode:

unit OTAUnitOptimizerWizard;

interface

...

procedure Register;

function InitWizard(const BorlandIDEServices: IBorlandIDEServices;
  RegisterProc: TWizardRegisterProc; var Terminate: TWizardTerminateProc)
  : Boolean stdcall;

exports InitWizard Name WizardEntryPoint;

implementation

uses
  DockFormExpert, // <-------------------------------------
  VCL.Dialogs,
  OTAUnitOptimizerSplashScreen,
  OTAUnitOptimizerAboutBox;

procedure Register;
begin
  RegisterPackageWizard(TOTAUnitOptimizerWizard.Create);
  RegisterPackageWizard(TDockFormExpert.Create as IOTAMenuWizard); // <-------------------------------------
end;

function InitWizard(const BorlandIDEServices: IBorlandIDEServices;
  RegisterProc: TWizardRegisterProc; var Terminate: TWizardTerminateProc)
  : Boolean stdcall;
begin
  RegisterProc(TOTAUnitOptimizerWizard.Create);
  RegisterProc(TDockFormExpert.Create); // <-------------------------------------
  Result := True;
end;

Ich habe es einfach so ausprobiert und bin nicht ganz sicher, ob es der absolut korrekte Weg ist.
Aber es funktioniert erst einmal augenscheinlich völlig problemlos.