Einzelnen Beitrag anzeigen

jacky213

Registriert seit: 2. Mär 2011
146 Beiträge
 
#7

AW: OnMouseDown and Parent Weiterleiten

  Alt 27. Jun 2019, 22:02
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)='Imagethen
       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.
  Mit Zitat antworten Zitat