Vererbung von Events

[jfheins]

Ich würde sagen, du solltest das Event in Ruhe lassen, und einfach auf die Message reagieren, das sähe so ähnlich aus:

Delphi-Quellcode:

   TMyClass = class (TCustomControl)
   protected
      procedure MouseDown (var Msg: TWMLButtonDown); message WM_LBUTTONDOWN;
      procedure MouseUp (var Msg: TWMLButtonUp); message WM_LBUTTONUP;
   published
      property OnMouseDown;
   end;

{ TMyClass }

procedure TMyClass.MouseDown(var Msg: TWMLButtonDown);
begin
   Windows.Beep(440, 100);
end;

procedure TMyClass.MouseUp(var Msg: TWMLButtonUp);
begin
   Windows.Beep(880, 100);
end;

(Dieses Control piepst jetzt einfach nur beim anklicken )