OnMouseDown and Parent Weiterleiten

[DeddyH]

Dann steppe doch mal mit F7 durch, dabei wird Dir auffallen, dass ein TImage kein TWinControl ist. Du musst schon einen eigenen Händler für die Images schreiben, in der Art

Delphi-Quellcode:

if Sender is TImage then
  if Timage(Sender).Parent is TPanel then
    begin
       ThePanel := TPanel(TImage(Sender).Parent);
        if Assigned(ThePanel.OnMouseDown) then
          ThePanel.OnMouseDown(ThePanel,ShiftState, X, Y);
    end;