Zwei-mal onmousedown?

[SirThornberry]

am besten du machst ein neues Event das bei Onmousedown ausgeführt wird denn sobald zum beispiel im Objectinspektor für deine componente das onMousedownevent zugewiesen wird zeigt der Zeiger nicht mehr auf deine funktion sondern auf die welche im Form definiert wurde.

Delphi-Quellcode:

  MyComponent = class(TWincontrol)
  private
    fnewmousedown: TMouseevent;
    procedure myMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
  [...]
  published
    MyComponentOnMouseDown: TMouseevent read fnewmousedown write fnewmousedown;
  end;
[...]
constructor TMyComponent.Create(blabla);
begin
  self.onmousedown = myMousedown;
end;

procedure TMyComponent.myMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  if assigned(fnewmousedown) then fnewmousedown(Sender, Button, Shift, x, y);
 
 //dein eigenes zeugs
 [...]
end;

Also sollte im Objectinspektor nur "MyComponentOnMouseDown" zu sehen sein (außer du hast schon bei der vorgängerkomponente müll gemacht) und somit kein dein ereignis nicht mehr überschrieben werden. Ne weitere möglichkeit wäere das du einfach ne kontainerklasse machst und darein dein eigentliches object packst. Somit vermeidest du das irgendjemand an dein eigentliches Object ran kommt (natürlich im Private oder Protected-part definieren) und deien eventproceduren überschreibt. Ist allerdings auch mehr aufwand