Question

求助啊，求助啊，delphi中利用keydown或者keypress事件，怎么把光标聚焦到控件上？？

设计一个表单，在表单中添加6个Tedit控件，添加2个Tcombobox控件，最后添加一个TMemo控件。利用keypress或keydown事件，编写程序，要求：1）表单开始时，光标聚焦在第一个控件上；2）按回车键或向下箭头[emoji]，光标聚焦到下一个控件上，按箭头向上[emoji]键，将光标聚焦到上一个控件上。

我目前只学到用dbgrid1.selectedindex这种方法，可是这道题目中没有dbgrid这个空间，

求大侠们解困、点拨哪~~~

Answer 1

看看这个有木有帮助哈：

{EDIT编辑通用上下移动光标函数}
procedure keyEditDown(Handle: HWnd; var Key: Word);
begin
If Key=Vk_Up then SendMessage(Handle,Wm_NextDlgCtl,1,0);
If (Key=Vk_Down) or (Key=Vk_RETURN) then SendMessage(Handle,Wm_NextDlgCtl,0,0);
end;

{编辑框上下移动光标}
procedure TMainForm.Edit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
keyEditDown(Handle,Key);
end;

TMemo控件不得行哈，这是他编辑内容的要求。

Answer 2

在keydown或keypress里头判断，比如回车判断 if key = vk_return，如果是回车就把下一个控件SetFocus