在imgname里设成五笔,输入几个汉字,然后 procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin if key=13 then begin key:=0; edit2.SetFocus; end; end; 一点问题也没
修改Edit2.ImeName 属性就可以呀Edit2.ImeName := EmptyStr;
procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin if key=13 then begin key:=0; edit2.SetFocus; end; end; 正解,在Edit1中的OnKeyDown中如果输入的是回车,就设置Edit2的焦点,代码是Edit2.SetFocus;
IMEName属性就可以设置成默认的输入法.
如果感兴趣可以QQ聊
IMEName属性就可以设置成默认的输入法.
如果感兴趣可以QQ聊
procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if key=13 then
begin
key:=0;
edit2.SetFocus;
end;
end;
一点问题也没
Shift: TShiftState);
begin
if key=13 then
begin
key:=0;
edit2.SetFocus;
end;
end; 正解,在Edit1中的OnKeyDown中如果输入的是回车,就设置Edit2的焦点,代码是Edit2.SetFocus;