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?