Very interesting. I tested it with your settings and added a width to the textbox of 181 and the scroll worked as it should. However, when I changed the MaxLength to 15 (instead of 5) then the width had to be 350 to prevent the misbehavior...


In my PC ( two monitors 1600X1200 )
- for 15 i need 520.
- for 75 i need 2420 !
- FOR 250 i need a Cinema and a Video Card with 1GB ram.

If you put attention, you see that it scroll only when you go right to the right margin of the textbox.
But, with MDOWN(), you have not events fired ( like mouseMove ),
then it is impossible with VFP events stop it.
Put a NODEFAULT into MouseDown stop all mouse behaviours.

For recovery in MouseUp,

Procedure MouseUp
this.SelStart = m.this.SelStart

it is sufficient.