Propertyeditor nicht Modal

[Mavarik]

Also...

gefunden habe ich: IDesignNotification.SelectionChanged & ASelection

"Nur" noch wie ich das benutzen kann...

Mavarik

[Mavarik]

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!