如何调用组件的自事件-DELPHI

我想创建一个过程来设置它自己的属性。请参考示例代码。我正在使用DELPHI XE

样本：

---

你的方法对我来说毫无意义。如果我明白你想做什么，以下是你应该做的：

• 单击其中一个控件（我们将其称为

  DBEdit1

  ，使其更简单）
• 切换到对象检查器的“事件”选项卡，然后双击OnExit事件
• 在代码编辑器中，您将看到

  procedure TCarcassUpdateForm.DBEdit1Exit(Sender: TObject);
  begin
  
  end;
  

• 将该代码编辑为：

  procedure TCarcassUpdateForm.DBEdit1Exit(Sender: TObject);
  var
    Edit: TDBEdit; // replace with your actual control class
  begin
    // Replace TDBEdit with the your actual control class
    Edit := (Sender as TDBEdit);
    if Edit.Text = '' then
      Edit.Text := '0';
  end;
  

• 返回到对象检查器，并将

  OnExit

  事件的名称从

  DBEdit1Exit

  更改为

  AllDBEditExit

• 在表单设计器中，按住Ctrl键并单击要具有相同行为的每个控件，以将其全部选中
• 在“对象检查器事件”选项卡中，单击

  OnExit

  事件中的下拉列表，并选择

  AllDBEditExit

  作为事件名称

---

你的方法对我来说毫无意义。如果我明白你想做什么，以下是你应该做的：
• 单击其中一个控件（我们将其称为

  DBEdit1

  ，使其更简单）
• 切换到对象检查器的“事件”选项卡，然后双击OnExit事件
• 在代码编辑器中，您将看到

  procedure TCarcassUpdateForm.DBEdit1Exit(Sender: TObject);
  begin
  
  end;
  

• 将该代码编辑为：

  procedure TCarcassUpdateForm.DBEdit1Exit(Sender: TObject);
  var
    Edit: TDBEdit; // replace with your actual control class
  begin
    // Replace TDBEdit with the your actual control class
    Edit := (Sender as TDBEdit);
    if Edit.Text = '' then
      Edit.Text := '0';
  end;
  

• 返回到对象检查器，并将

  OnExit

  事件的名称从

  DBEdit1Exit

  更改为

  AllDBEditExit

• 在表单设计器中，按住Ctrl键并单击要具有相同行为的每个控件，以将其全部选中
• 在“对象检查器事件”选项卡中，单击

  OnExit

  事件中的下拉列表，并选择

  AllDBEditExit

  作为事件名称

---

我建议调整

OnExit

处理程序，使其不多次调用

as

操作符，因为这将在运行时执行冗余查找。调用一次并将结果保存在局部变量中，例如：

procedure TCarcassUpdateForm.AllDBEditExit（发送方：TObject）；var编辑：TDBEdit；开始编辑：=作为TDBEdit的发件人；如果Edit.Text=''，则Edit.Text:='0'；结束

我建议调整

OnExit

处理程序，不要多次调用

as

操作符，因为这样会在运行时执行冗余查找。调用一次并将结果保存在局部变量中，例如：

procedure TCarcassUpdateForm.AllDBEditExit（发送方：TObject）；var编辑：TDBEdit；开始编辑：=作为TDBEdit的发件人；如果Edit.Text=''，则Edit.Text:='0'；结束