在delphi6中如何实现回车键事件?

Question

用KeyPress吧
 
if Key = #13 then
begin
  
end;
就可以了

Answer 1

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if Key=#13 then Button1.OnClick(Sender);
end;

Answer 2

你可以加一个TButton控件在窗体上，然后设置他的Default为True,用他触发查询事件如果你想直接在TEdit中按回车键开始查询的话，在Key响应事件中判断键值是否是'#13'

Answer 3

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if Key = #13 then
    Key := #0;end; procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key = vk_Return  then
    Perform(WM_NEXTDLGCTL,0,0);
end;

Answer 4

Sorry,Errorprocedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if Key = #13 then
    Key := #0;end; procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key = vk_Return     then
    Perform(WM_NEXTDLGCTL,0,0);
end;

Answer 5

以上解决方法不是很全面，不妨试一下：
首先将form的KeyPreview设置为True
然后在form的KeyPress时间中编写代码，if key=#13 then do sth;
这样表单内所有的控件都可以用！
我以前就是这样用的！

Answer 6

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if Key = #13 then
  begin
    DoSomething;
    Key := #0;
  end; procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key = vk_Return     then
    Perform(WM_NEXTDLGCTL,0,0);
end;