改行キーで次のコントロールへフォーカス移動

LINKS

Sfo26U <a href="http://zjulmsoodbuq.com/">zjulmsoodbuq</a>, [url=http://mioawchehsbz.com/]mioawchehsbz[/url], [link=http://obucagbgvrzj.com/]obucagbgvrzj[/link], http://ljsvessnzlmu.com/

改行キーで次のコントールへフォーカスを移したい †

改行キーの押下で次のコントロールへフォーカスを移したいのは普通である。
それくらい勝手にやってくれるとありがたいのだが、なかなかそう勝手にはやってくれない。
一手間かける必要がある。

改行キーでコントロールを移して欲しいコントロールの「ＯｎＫｅｙＰｒｅｓｓ」イベントで次のように処理する。

void __fastcall TfrmFORM1::txtFUGAKeyPress(TObject *Sender, char &Key)
{
     //    改行で次のコントロールへフォーカス移動
    if (Key == 0x0d)	{
        Key = 0;
        FindNextControl((TWinControl*)Sender, true, true, false)->SetFocus();
    }
}

このルーチンを、すべてのコントロールから呼び出してやればOK。