简单按钮问题BitBtn

Question

相应按钮的OnKeyPress事件，在里面滤掉回车键

Answer 1

有道理，
if key=#13 then abort;

Answer 2

你是在KeyDown时间中写的代码吗?

Answer 3

//....
    FMouseDown: Boolean;
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.BitBtn1Click(Sender: TObject);
begin
  if not FMouseDown then Exit;
  ShowMessage('这只是一种解决方案，但很有效');
end;procedure TForm1.BitBtn1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  FMouseDown := True;
end;procedure TForm1.BitBtn1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  FMouseDown := False;
end;
//....

Answer 4

我在Edit中有按下回车键搜索数据   但我用Bitbtn是他会自动响应他的单击事件。
怎样屏蔽掉但要Edit的KeyDown响应