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.