Namensgenerierung von Subkomponenten

[Uwe Raabe]

Wenn du im DesignEditor irgendwie an die erzeugte Page herankommst (z.B. indem AddPage die erzeugte Page zurückgibt), kannst du ihm auch einen Namen geben:

Delphi-Quellcode:

procedure TPanelControlEditorPopup.ExecuteVerb(Index: Integer);
var
  newPage: TPanelSheet;
begin
  newPage := TPanelControl(Component).AddPage;
  newPage.Name := Designer.UniqueName('PanelSheet');
end;