Parent Abfrage

[DeddyH]

Versuch es mal mit

Delphi-Quellcode:

if (MovingImage.Parent = P1Scrollbox) or (MovingImage.Parent = P2Scrollbox) then
(* Dummy-Zeile für den Parser der DP *)

GetParent ist eine API-Funktion und gibt Dir nur das Handle des ParentControls zurück. Parent hingegen ist eine Eigenschaft von TControl und liefert Dir die tatsächliche Instanz. Mit is prüft man übrigens, ob ein Objekt von einer bestimmten Klasse abstammt, aber nicht, ob es eine bestimmte Instanz ist.

P.S: Bitte niemals(!!) auf true prüfen, das kann ins Auge gehen.

[Antonov]

Ach ja, bin ich dämlich!
mit x is y fragt man nach der Klasse! Oh Mann!

Vielen Dank, funktioniert tadellos!
Wusste ich doch, dass der Kram trivial ist.
Und danke für die Zusatzinfos, werd ich beherzigen!

[DeddyH]

Was ich noch vergessen hatte zu erwähnen: falls Du generell Images, die sich auf Scrollboxen befinden, ansprechen möchtest, kannst Du tatsächlich das is verwenden. Dann ginge das mit
if MovingImage.Parent is TScrollbox then