Still celebrating National IT Professionals Day with 3 months of free Premium Membership. Use Code ITDAY17

x
?
Solved

Get out of a routine being executed!

Posted on 2004-04-25
11
Medium Priority
?
197 Views
Last Modified: 2012-05-04
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);
begin
  .........
  If EscapeKey = true then
  begin
    Some Code;
  end;
  ......  
end;

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!

Bri


0
Comment
Question by:brimountain
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
  • 4
  • 3
  • 3
  • +1
11 Comments
 
LVL 6

Accepted Solution

by:
bpana earned 100 total points
ID: 10911367
try

Mouse_Event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0);

Bogdan
0
 
LVL 17

Expert Comment

by:mokule
ID: 10911379
I don't quite understand what do You mean by release mouse.

But in any case You sould do it rather here

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key = VK_ESCAPE then
    begin
// Your code
    end;
end;

Set
 Form1.KeyPreview := True;
0
 
LVL 6

Expert Comment

by:bpana
ID: 10911410
use it in OnMouseMove:

if ssLeft in Shift then
begin
  Mouse_Event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0);
end;

Bogdan
0
Concerto's Cloud Advisory Services

Want to avoid the missteps to gaining all the benefits of the cloud? Learn more about the different assessment options from our Cloud Advisory team.

 

Author Comment

by:brimountain
ID: 10911620
Hi Bpana

Your answer is nearly what's I need.  What I actually want is that:

While I am holding the left mouse button down, I press the Escape key (still keep holding the left mouse button down). It functions exactly as I physically release my index fingure holding down the left mouse button.  

Brimountain
0
 
LVL 17

Expert Comment

by:mokule
ID: 10911706
But You must be aware that MouseUp will be fired once more when the left mouse button will be really released

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key = VK_ESCAPE then
    begin
    Mouse_Event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0);
    end;
end;
0
 
LVL 6

Expert Comment

by:bpana
ID: 10912080
hi,

on the OnKeyDown event:

  if Key = VK_ESCAPE then
    if csLButtonDown in Button1.ControlState then
      Mouse_Event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0);

Bogdan
0
 
LVL 6

Expert Comment

by:bpana
ID: 10912095
change Button1 with (Sender as TControl)

if Key = VK_ESCAPE then
  if csLButtonDown in (Sender as TControl).ControlState then
    Mouse_Event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0);

Bogdan
0
 
LVL 3

Expert Comment

by:MikProg
ID: 10916574
You need to
  SetCaptureControl(nil);
or
  Mouse.Capture:=0;
I.E.
  if Key = VK_ESCAPE then
    SetCaptureControl(nil);
This cancels mouse capture mode -> Mouse events will be sended to control where mouse cursor moved.
0
 

Author Comment

by:brimountain
ID: 10917573
Thank you so much, but i am pretty busy nowadays. I'll try your comments when free and get back soon.
0
 

Author Comment

by:brimountain
ID: 10944256
Sorry, but none of your solution fully answers my question.

Could you please open Paint pgrogram (Start/All programs/Accessories/Paint) then click on the Pecil icon on the left hand side toolbar then draw something and press Escape key while still hold the left mouse button down to see how it works? I want the solution like that.

Bri
0
 
LVL 17

Expert Comment

by:mokule
ID: 10944532
You've got such a solution from me.:)

This is the line.
// Your code
There are no other possibilities. You must undo all changes done during the operation.
0

Featured Post

On Demand Webinar: Networking for the Cloud Era

Did you know SD-WANs can improve network connectivity? Check out this webinar to learn how an SD-WAN simplified, one-click tool can help you migrate and manage data in the cloud.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Introduction I have seen many questions in this Delphi topic area where queries in threads are needed or suggested. I know bumped into a similar need. This article will address some of the concepts when dealing with a multithreaded delphi database…
In my programming career I have only very rarely run into situations where operator overloading would be of any use in my work.  Normally those situations involved math with either overly large numbers (hundreds of thousands of digits or accuracy re…
In this brief tutorial Pawel from AdRem Software explains how you can quickly find out which services are running on your network, or what are the IP addresses of servers responsible for each service. Software used is freeware NetCrunch Tools (https…
How to fix incompatible JVM issue while installing Eclipse While installing Eclipse in windows, got one error like above and unable to proceed with the installation. This video describes how to successfully install Eclipse. How to solve incompa…
Suggested Courses

715 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question