Solved

How i check if CTRL key is pressed when i click on a Button?

Posted on 2004-08-16
2
212 Views
Last Modified: 2010-04-05

I´d like to check if CTRL key is pressed when i click on a Button. Do you know how i implement this?

Best Regards.
0
Comment
Question by:joelsilva
2 Comments
 
LVL 3

Accepted Solution

by:
Tyrsis earned 25 total points
ID: 11817575
Here you go:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
    iState : SmallInt;
begin
    if(GetKeyState(VK_CONTROL) < 0) then
    begin
        Memo1.Lines.Add('Control Key Pressed');
    end
    else
    begin
        Memo1.Lines.Add('Control Key NOT Pressed');
    end;
end;

end.
0
 

Author Comment

by:joelsilva
ID: 11817601
Thanks very much... I appreciate so much your answer.
0

Featured Post

Courses: Start Training Online With Pros, Today

Brush up on the basics or master the advanced techniques required to earn essential industry certifications, with Courses. Enroll in a course and start learning today. Training topics range from Android App Dev to the Xen Virtualization Platform.

Question has a verified solution.

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

A lot of questions regard threads in Delphi.   One of the more specific questions is how to show progress of the thread.   Updating a progressbar from inside a thread is a mistake. A solution to this would be to send a synchronized message to the…
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…
This Micro Tutorial hows how you can integrate  Mac OSX to a Windows Active Directory Domain. Apple has made it easy to allow users to bind their macs to a windows domain with relative ease. The following video show how to bind OSX Mavericks to …
Nobody understands Phishing better than an anti-spam company. That’s why we are providing Phishing Awareness Training to our customers. According to a report by Verizon, only 3% of targeted users report malicious emails to management. With compan…

776 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