TDesignWindow verwenden (keine Quellen oder Doku vorhanden!)

[RSE]

Lösung:

Delphi-Quellcode:

procedure TFmCGrpEditor.ItemListClick(Sender: TObject);
begin
  if (not Active) or (ItemList.Selected = nil) or // ist etwas ausgewählt?
    (ItemList.Selected.Data = nil) then           // hat das ausgewählte auch ein Item angehangen?
    Exit;
  Designer.SelectComponent(TChoiceGroupItem(ItemList.Selected.Data));
end;

procedure TFmMyCompEditor.Edit(AMyComp: TMyComp; ADesigner: IFormDesigner);
begin
  if MyComp <> nil then
    MyComp.RemoveFreeNotification(Self);
  MyComp := AMyComp;
  MyComp.FreeNotification(Self);
  Designer := ADesigner; // <-- ohne das funktioniert nix!
  Show;
end;

procedure TMyCompEditor.ShowEditor;
begin
  if FmMyCompEditor = nil then
    FmMyCompEditor := TFmMyCompEditor.Create(Application);
  FmMyCompEditor.Edit(TMyComp(Component),Designer);
end;

Kaum macht man es richtig, funktioniert auch alles...