procedure TFormcode.DBEdit3KeyPress(Sender: TObject; var Key: Char); begin if key = #13 then button1.SetFocus; end;
----------------------------------------------
命运是一只沦落在鸡窝里的鹰
procedure TFormcode.DBEdit3KeyPress(Sender: TObject; var Key: Char); begin if Key = #13 then begin Query1.Active := False; Query1.Active := True; Button1.SetFocus; end; end;
----------------------------------------------
——混世生