OnMouseUp auf Parent-Panel auslösen

[H4ndy]

Also praktisch funktioniert das hier:
(Ob's schön ist, wage ich aber zu bezweifeln )

Delphi-Quellcode:

procedure ChildPanel.OnMouseUp(Sender: TObject,...);
begin
  if (Sender is TPanel) then begin
    if (Sender as TPanel).Parent <> nil then begin
      if ((Sender as TPanel).Parent is TPanel) then begin      
        ((Sender as TPanel).Parent as TPanel).OnMouseUp((Sender as TPanel).Parent,Button,Shift,X,Y);
      end;
    end;
  end;
end;

Ich prüfe ob das Panel einen Parent hat und ob dieses auch ein Panel ist.
Wenn ja, dann löse ich dessen OnMouseUp mit den Parametern des Child-Panels aus.

Edit:
Du kannst auch "(Sender as TPanel).Parent" im Aufruf zu "Sender" ändern, damit du z.B.
mitbekommst, welches Child-Panel das Ereignis ausgelöst/abbekommen hat.