(0008563)
Samuel Herzog (reporter)
2006-02-15 11:15
|
It does not work because in the constructor the componentstyle is set to
- [csDoubleClicks]
See below:
constructor TJvXPCustomWinXPBar.Create(AOwner: TComponent);
const
MouseEvents: TJvXPControlStyle = [csRedrawMouseEnter, csRedrawMouseLeave];
begin
inherited Create(AOwner);
FStoredHint := '|'; // no one in their right mind uses a pipe as the only character in a hint...
ControlStyle := ControlStyle - [csDoubleClicks] + [csAcceptsControls, csActionClient]; |