onMouseDown event of a String Grid Control
Posted on 1998-11-26
Hi all again...
I need to make some actions when the left mouse button is pressed over a string grid control. I have the following code in the event handler:
procedure TEmulador.GridMemoExMouseDown(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
if Button = mbLeft then
The problem is that when I press the left mouse button, the ModifExt dialog box is displayed, but besides that, a transparent square around one element in the string grid appears which follows the mouse, even if I don't have any mouse button pressed and the mouse isn't over the control. In this last case, that square just moves until it reaches the border column or row, depending on where is the mouse cursor. Ah.. and that situation finishes when I press the button over other control.
How can I solve it? I'm at present changing the focus to another control using SetFocus, but it's a little visible that the above condition still ocurres.
Thanks in advance