BorlandTalk.com

Borut Sustar · Guest

Hello!

Using BCB5 professional!

I would like to do the folowing:
- when I press Enter (on keyboard) I would like that Edit1 acts like I would
press Tab.
Is it possible to do something like that?

Thx in advance!
Borut
Slovenia

Fishface · Guest

Borut Sustar wrote:

Mark Jacobs · Guest

In Edit1, double click the OnKeyPress event in the Object Inspector. In the
code template that opens, put in the following :-

void __fastcall TMainForm::Edit1KeyPress(TObject *Sender, char &Key)
{
if (Key==VK_RETURN)
{
Key=0; keybd_event((BYTE)VK_TAB,(BYTE)0,0,0);
keybd_event((BYTE)VK_TAB,(BYTE)0,KEYEVENTF_KEYUP,0);
}
}
--
Mark Jacobs
DK Computing
http://www.dkcomputing.co.uk
[email]markj (AT) criticalremovethisspuriousantispamstuff (DOT) co.uk[/email]

"Borut Sustar" <borut (AT) bokosoft (DOT) si> wrote

JD · Guest

"Mark Jacobs" <markj (AT) critical (DOT) co.uk> wrote:

Mark Jacobs · Guest

What is this - slag Jacobs off day?!? The code I cited works, has been
tested, and does not ring any bells, because I set Key=0 before the
keybd_events.
--
Mark Jacobs
DK Computing
http://www.dkcomputing.co.uk
[email]markj (AT) criticalremovethisspuriousantispamstuff (DOT) co.uk[/email]

"JD" <nospam (AT) nospam (DOT) com> wrote

Dwayne · Guest

Hello Borut ,

Using BCB5 professional!

I would like to do the folowing:
- when I press Enter (on keyboard) I would like that Edit1 acts like I would
press Tab.
Is it possible to do something like that?

Go to your Form and on Event turn on the OnKeyPress

Then put this in.

void __fastcall TForm1::FormKeyPress(TObject *Sender, char &Key)
{
if (Key == VK_RETURN) {
Key=0;
Perform(WM_NEXTDLGCTL,0,0);
}

}

Dwayne