如何在点按钮前检查编辑框是否空,如空则取消点击事件,焦点指向为空的编辑框

Question

如何在点按钮前检查编辑框是否空,如空则取消点击事件,焦点指向为空的编辑框

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
begin
  if Edit1.Text  = '' then
  begin
    ShowMessage('Edit1 不能为空');
    Exit; //返回
  end;
  //下面为你要做的事
  ...
end;

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
begin
  if Edit1.Text  = '' then
  begin
    ShowMessage('Edit1 不能为空');
    Exit; //返回
    edit1.setfocus;                      //看这句
  end;
  //下面为你要做的事
  ...
end;

Answer 3

点击 button 只能上面那样办了，因为 sender 参数是 TButton ，不能通过 sender 参数判定。