Get out of a routine being executed!
Posted on 2004-04-25
Assume that I have a routine below:
// Global variable
var EscapeKey : boolean; // Whether the escape key is being
// pressed or not
procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
If EscapeKey = true then
I tried to write Some Code that releases the mouse being down when user presses Escape key without physically release the left mouse button by hand. However, I can't do this.
Anyone here know how to do this, please help me!