OK für alle die es Interessiert...
Es geht so...
Delphi-Quellcode:
TMyComponentEditor = class(TForm,IDesignNotification)
...
protected
procedure DesignerClosed(const ADesigner: IDesigner; AGoingDormant: Boolean);
procedure DesignerOpened(const ADesigner: IDesigner; AResurrecting: Boolean);
procedure ItemDeleted(const ADesigner: IDesigner; AItem: TPersistent);
procedure ItemInserted(const ADesigner: IDesigner; AItem: TPersistent);
procedure ItemsModified(const ADesigner: IDesigner);
procedure SelectionChanged(const ADesigner: IDesigner;const ASelection: IDesignerSelections);
...
end
implementation
procedure TMyComponentEditor.FormCreate(Sender: TObject);
begin
...
RegisterDesignNotification(Self as IDesignNotification);
end;
procedure TMyComponentEditor.FormDestroy(Sender: TObject);
begin
UnregisterDesignNotification(Self as IDesignNotification);
...
end;
procedure TMyComponentEditor.SelectionChanged(const ADesigner: IDesigner;const ASelection: IDesignerSelections);
var
i : integer;
begin // Workingtest
memo1.Lines.Clear;
for i:=0 to ASelection.Count-1 do
begin
Memo1.Lines.Add(ASelection.Items[i].ClassName);
end;
end;
Grüsse Mavarik
PS.: Auch ein nicht modaler Editor funktioniert!