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.