drop component at designtime : parent ermitteln

[arturx]

Ein control (z.B. tbutton) wird auf der Komponentenleiste ausgewählt und dann auf ein parent wincontrol (z.B. groupbox) gelegt.
Wie kann man während (bzw.anschließend) des Ablegens aus dem Control heraus ermitteln,
wer der Parent (also in diesem Beispiel die groupbox) ist ?
Ich brauche diese Info, um bestimmte Eigenschaften des parent als default Vorgaben für das Control zu nutzen.
In button.create geht es nicht ohne weiteres, da ist der parent=nil.

Wer weiß wie es geht oder wo man evt. nachschauen kann ?

[Scotty]

Im Event OnEndDrag() werden Sender und Target als TObject übergeben.

[arturx]

Im Event OnEndDrag() werden Sender und Target als TObject übergeben.

Ich habs versucht (natürlich die Original procedures überschrieben, mich interessiert ja die designtime) .
Ich habs sowohl für den parent als auch für die abgelegte komponente probiert :

Code: Alles auswählen

Procedure DragDrop(Source: TObject; X,Y : Integer);   override;
procedure DoEndDrag(Target: TObject; X,Y: Integer);  override;

Die Idee war verlockend. Leider wird weder das eine noch das andere zur designtime aufgerufen....
Gibt es noch weitere Ideen ?

[Socke]

Die Idee war verlockend. Leider wird weder das eine noch das andere zur designtime aufgerufen....
Gibt es noch weitere Ideen ?

Hast du die entsprechende Komponente auch als Package in die IDE gelinkt? Mit reinem Quelltext kann die nämlich nichts anfangen.
Sollen die Funktionen nur zur Designtime etwas tun (bzw. zur Laufzeit etwas anderes tun), solltest du noch auf
csDesigning in ComponentState
testen.

[arturx]

Hallo Socke : Die Komponente mit ihrem Package war gelinkt - und trotzdem....

Mittlerweile habe ich die Lösung gefunden :

Code: Alles auswählen

procedure SetParent(NewParent: TWinControl); override;
 
procedure tmycomponent.SetParent(NewParent: TWinControl);
begin
  inherited SetParent(NewParent);
// If componentstate   ...usw. usw.  .....
end;

Innerhalb dieser procedure kann ich prächtig alles checken und erledigen.
Wie so oft liegt die Lösung einfach zu nahe.
Velen Dank an alle, die Ideen beigesteuert haben !