Welcome PlugIn : auf Schließen der Page reagieren

[Harry Stahl]

Herzlichen Dank für Deine Hilfe!

Ich habe mal die Klasse entsprechend ergänzt):

Delphi-Quellcode:

ype
  TWPDemoPlugInCreator = class(TInterfacedObject, INTAWelcomePagePlugin,
    INTAWelcomePageContentPluginCreator, INTAWelcomePagePluginNotifier280)
  private
    FWPPluginView: TFrame;
    FIconIndex: Integer;
    { INTAWelcomePageContentPluginCreator }
    function GetView: TFrame;
    function GetIconIndex: Integer;
    procedure SetIconIndex(const Value: Integer);
  public
    constructor Create;
    destructor Destroy; override;
    class procedure PlugInStartup;
    class procedure PlugInFinish;
    { INTAWelcomePagePlugin }
    function GetPluginID: string;
    function GetPluginName: string;
    function GetPluginVisible: boolean;
    { INTAWelcomePageContentPluginCreator }
    function CreateView: TFrame;
    procedure DestroyView;
    function GetIcon: TGraphicArray;

    procedure ViewShow(Sender: TWinControl);
    /// <summary>
    /// Event to hide/close the main Plugin View
    /// </summary>
    procedure ViewHide;
    procedure ViewResize(AColumnSpan, ARowSpan: Integer);
  end;

und implementiert:

Delphi-Quellcode:

procedure TWPDemoPlugInCreator.ViewHide;
begin
  FWPPluginView.Visible := false;
  ShowMessage ('hide');
end;

procedure TWPDemoPlugInCreator.ViewResize(AColumnSpan, ARowSpan: Integer);
begin
  //
end;

procedure TWPDemoPlugInCreator.ViewShow(Sender: TWinControl);
begin
  FWPPluginView.Visible := True;
  ShowMessage ('Show');
end;

Allerdings werden diese Prozeduren bei den entsprechenden Ereignissen nicht aufgerufen.
Was mache ich falsch?