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
)