Komponenten plazieren mit ToolsAPI

[theo1709]

Hallo!

Ich erzeuge in einem Wizzard neue Komponenten. Das Funktioniert ohne Probleme.

Wie kann ich auf die Property "Top" bzw. "Left" bei non-visible-Komponenten zugreifen (lesen und schreiben)?

Delphi-Quellcode:

          OldComponent:=TRDAFBDataSet(FormDesigner.GetComponent(CRUniComponents.FDS_ComponentsCompName.AsString));
          FOTAFormEditor.FindComponent(OldComponent.Name).GetPropValueByName('Top',NewTop);
          FOTAFormEditor.FindComponent(OldComponent.Name).GetPropValueByName('Left',NewLeft);
          inc(NewLeft,5);

          NewComponent:=TUniQuery(FormDesigner.CreateComponent(TUniQuery,FormDesigner.Root,NewLeft,NewTop,24,24));
          NewComponent.Name:=FormDesigner.UniqueName(OldComponent.Name);

Alles läuft ohne Probleme, "GetPropValueByName" liefert False, dadurch werden die Variablen "NewTop" und "NewLeft" nicht gesetzt.

Wo kann ich die Position von non-visible-Komponenten ermitteln?

[edit=mkinzler]Tippfehler im Titel korrigiert Mfg, mkinzler[/edit]

[Hawkeye219]

Herzlich willkommen in der Delphi-PRAXiS, theo1709!

Hier ist ein Lösungsansatz für dein Problem.

Gruß Hawkeye

[theo1709]

Danke für die schnelle Hilfe.

Genau diesen Ansatz habe ich gebraucht.