//////////////////////////////////////////////////////////////////////
リターンキーをTABキーとして使う方法(BCB4用)

void __fastcall TForm1::FormKeyPress(TObject *Sender, char &Key)
{

    if (Key == VK_RETURN || Key == '\n')
    {
        Key = 0;                       // ここでキーを取り消す
        Perform(WM_NEXTDLGCTL, 0, 0);  // 次のコントロールにフォーカスを移す
    }


}



1. FormのKeyPreviewプロパティをtrueに変更
2. FormのOnKeyPressイベントに上のコードを書く

引数のSenderにはメッセージを送ったコントロールのポインタ、
Keyにはキーコードが入ってくる。

VK_RETURNはリターンのコード(13？)、Key == '\n'はmemoコントロールで複数行
入力させたくない時に使う(ctrl + Returnされた時はVK_RETURNではなく'\n'が
送られるくるため。複数行をコピーされたときはmemoコントロールのOnChangeで
改行コードを外す処理を行うしかない)


Perform(WM_NEXTDLGCTL, 0, 0);  // 次のコントロールにフォーカスを移す
Perform(WM_NEXTDLGCTL, 1, 0);  // 前のコントロールにフォーカスを移す


//////////////////////////////////////////////////////////////////////