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.