在Windows环境下，要使一个控件取得焦点，可在该控件上用鼠标单击一下，或按Tab键将焦点移至该控件上。这种控制焦点切换的方法有时不符合用户的习惯。用户希望用Enter键，控制焦点由Edit1切换到Edit2。要实现这样的功能需借助WinAPI函数SendMessage来完成。方法是：先设Form1的KeyPreview属性为true,然后在Form1的OnKeyPress事件中加入如下的代码。这样，用户就可以通过按Enter，键控制焦点按定义好的Taborder顺序来移动了！
void __fastcall TForm1::FormKeyPress(TObject *Sender, char &Key)
{
if(Key==VK_RETURN)
{
SendMessage(this->Handle,WM_NEXTDLGCTL,0,0);
Key=0;
}
}
|
