T
tswhq
Unregistered / Unconfirmed
GUEST, unregistred user!
1.在Form的KeyPress事件加
procedure TProductRegForm.FormKeyPress(Sender: TObject; var Key: Char);
begin
if Key = #13 then
begin
Key := #0;
SelectNext(ActiveControl, True, True);
end;
end;
2.在属性面板上将Form的KeyPreview的属性设为True
3.设置TabOrder的顺序
只要按"Enter"立即激活"OK"按钮
我用了各种方法都不行,我也不想用其他窗体模式,请大家赐教
procedure TProductRegForm.FormKeyPress(Sender: TObject; var Key: Char);
begin
if Key = #13 then
begin
Key := #0;
SelectNext(ActiveControl, True, True);
end;
end;
2.在属性面板上将Form的KeyPreview的属性设为True
3.设置TabOrder的顺序
只要按"Enter"立即激活"OK"按钮
我用了各种方法都不行,我也不想用其他窗体模式,请大家赐教