Weil ich dann eine neue Komponente nur für diese Panels hätte. Das wäre zwar eine Lösung, aber keine sehr saubere. Da klopfen mir meine Chefs bestimmt auf die Finger
Ich versuchs mal mit Code:
Delphi-Quellcode:
//aus einer Komponenten-Unit
type
TMyComponent =
class(...TControl)
private
FPanel : TPanel
protected
procedure MouseDown(Button: TMouseButton;
Shift: TShiftState;
X: Integer;
Y: Integer);
override;
[...]
implementation
procedure TMyComponent.MouseDown(Button: TMouseButton;
Shift: TShiftState;
X: Integer;
Y: Integer);
begin
//cool stuff
end;
Wenn ich jetzt eine Form mit einer TMyComponent erstelle und ich zur Laufzeit auf den Teil der grafischen Repräsentation der Komponente klicke, der vom Panel "überdeckt" ist, wird so wie es ist nicht TMyComponent.MouseDown ausgeführt (weil das MouseEvent ja auf dem Panel stattfand). Soll es aber!
Für jede Instanz von TMyComponent nen EventHandler für FPanel.OnMouseDown einzufügen und da TMyComponent.MouseDown aufzurufen kommt nicht in Frage.
Diese Funktionalität muss in der Komponentendefinition von TMyComponent sichergestellt werden.
TPanel selbst kann ich nicht verändern, weil diese Änderung natürlich nicht für alle TPanels gelten soll.