procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if key=char(13) then combobox1.SetFocus;
end;
这段代码应该是按回车移动焦点到COMBOBOX1
可是在我的程序中却变成了按SHIFT+ENTER移动焦点到COMBOBOX1
为什么?困扰多时!!求助
begin
if key=char(13) then combobox1.SetFocus;
end;
这段代码应该是按回车移动焦点到COMBOBOX1
可是在我的程序中却变成了按SHIFT+ENTER移动焦点到COMBOBOX1
为什么?困扰多时!!求助
combobox1.SetFocus;
原来我使用了图形按钮中的KIND属性中的默认直
所以每次回车都相当于按了一下这个按钮.