-
From: Mark Howard [EMAIL PROTECTED]
To: Multiple recipients of list delphi [EMAIL PROTECTED]
Date: Monday, 29 March 1999 22:00
Subject: Re: [DUG]: Trapping and using a CTRL-ENTER
Thanks to those who responded to this question. I have tried those that
APPEAR
to be the most
Alistair
Thanks for your reply.
I have tried the following, based on your suggestion but I still have problems.
procedure TMainForm.DocEntryTrMesEditKeyPress(Sender: TObject; var Key: Char);
begin
if (keyfound = #10) and (key = #13) then ShowMessage('Control Enter')
else
Thanks to those who responded to this question. I have tried those that APPEAR
to be the most straightforward.
Greg I have tried the following code, based on your suggestion.
procedure TMainForm.DocEntryTrMesEditKeyDown(Sender: TObject;
var Key: Word; Shift: TShiftState);
begin
if ssCtrl in