Z
zhczm
Unregistered / Unconfirmed
GUEST, unregistred user!
Form 我做了如下设定：
KeyPreview=True
procedure TForm1.FormKeyPress(Sender: TObject;
var Key: Char);
begin
if Key=#13 then
begin
Key := #0;
Perform(WM_NextDlgCtl,0,0);
end;
end;
delphi 自带的 Edit 便可以通过回车光标移到下一个控件，但是bsSkinEdit却不可以，就是不响应回车键
KeyPreview=True
procedure TForm1.FormKeyPress(Sender: TObject;
var Key: Char);
begin
if Key=#13 then
begin
Key := #0;
Perform(WM_NextDlgCtl,0,0);
end;
end;
delphi 自带的 Edit 便可以通过回车光标移到下一个控件，但是bsSkinEdit却不可以，就是不响应回车键