Re: ctrl -esc

Article View: borland.public.cppbuilder.nativeapi

Article #15512

Back to borland.public.cppbuilder.nativeapi Previous Next

#15512

From: Rodolfo Frino
Date: Wed, 02 Jul 2003 15:53

32 lines
1621 bytes

Did you try this?

WORD Key1 = '  ';
WORD Key2 = '  ';

void __fastcall TForm1::FormKeyDown(TObject *Sender, WORD &Key,
      TShiftState Shift)
{

   if (Key == 0x1B)
       Key1 = Key;

   if (Key == 0x11)
       Key2 = Key;

   if (Key1 == 0x1B && Key2 == 0x11)
   {
      ShowMessage("ESCAPE + Ctrl");
   }

}

Don't forget to reset the keys in TForm1::FormKeyUp

"A program is complex when an optimization exists but it cannot be found"
Rodolfo



"Duane Hebert" <duane@nitrex.com> wrote in message
news:3f02d27a$1@newsgroups.borland.com...
> How can I trap <ctrl><esc> from my application?  What message is sent?

Technical Details

Message-ID: <3f02fffd@newsgroups.borland.com>

Path:

arc1-ca.pugleaf.net!archiver1.google.com!news1.google.com!sn-xit-02!sn-xit-03!sn-xit-04!sn-xit-01!sn-xit-08!supernews.com!small1.nntp.aus1.giganews.com!border1.nntp.aus1.giganews.com!nntp.giganews.com!newsfeeds.ihug.co.nz!ihug.co.nz!newsgroups.borland.com!not-for-mail

References: <3f02d27a$1@newsgroups.borland.com>

Show Full Headers

Complete Article Headers

X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 10cc67,b05fa7934bf06c5b
X-Google-Attributes: gid10cc67,public
X-Google-ArrivalTime: 2003-07-02 09:06:30 PST
From: "Rodolfo Frino" <rodolfofrino@yahoo.com>
Newsgroups: borland.public.cppbuilder.nativeapi
References: <3f02d27a$1@newsgroups.borland.com>
Subject: Re: ctrl -esc
Date: Thu, 3 Jul 2003 01:53:39 +1000
Lines: 34
X-Priority: 3
X-MSMail-Priority: Normal
X-Newsreader: Microsoft Outlook Express 6.00.2800.1158
X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2800.1165
NNTP-Posting-Host: 203.206.27.140
Message-ID: <3f02fffd@newsgroups.borland.com>
X-Trace: newsgroups.borland.com 1057161213 203.206.27.140 (2 Jul 2003 08:53:33 -0700)
Path: arc1-ca.pugleaf.net!archiver1.google.com!news1.google.com!sn-xit-02!sn-xit-03!sn-xit-04!sn-xit-01!sn-xit-08!supernews.com!small1.nntp.aus1.giganews.com!border1.nntp.aus1.giganews.com!nntp.giganews.com!newsfeeds.ihug.co.nz!ihug.co.nz!newsgroups.borland.com!not-for-mail

Reply to Parent Message