OnMouseDown and Parent Weiterleiten

[jacky213]

Hab das jetzt so versucht, aber es klappt nicht

Delphi-Quellcode:

    for I:=0 to frmMain.ComponentCount-1 do
    if frmMain.Components[I] is TImage then
    if Copy(TImage(frmMain.Components[I]).Name,0,5)='Image' then
       begin
       TImage(frmMain.Components[I]).OnMouseDown :=
       TPanel(TImage(frmMain.Components[I]).Parent).OnMouseDown;
       TImage(frmMain.Components[I]).OnMouseMove :=
       TPanel(TImage(frmMain.Components[I]).Parent).OnMouseMove;
       TImage(frmMain.Components[I]).OnMouseUp   :=
       TPanel(TImage(frmMain.Components[I]).Parent).OnMouseUp;
       end;

und habe geprüft ob der Parent also das Panel ist und das Stimmt.