Question

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

样品：

procedure TCarcassUpdateForm.ChangeText;
    begin
      if self.Text = '' then
      begin
      Self.Text := '0';
      end;
    end;

//Edit 14
procedure TCarcassUpdateForm.MyDBLabeledEdit14Exit(Sender: TObject);
    begin
    ChangeText
    end;

//Edit 15
procedure TCarcassUpdateForm.MyDBLabeledEdit15Exit(Sender: TObject);
    begin
    ChangeText
    end;

Answer 1

你的方法对我来说没什么意义。如果我理解你要做的事情，那么你应该做些什么：

点击其中一个控件（让我们称之为DBEdit1以简化操作）。
切换到Object Inspector的“事件”选项卡，然后双击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 + LeftClick 您想要具有相同行为的每个控件都可以选择它们。
在“对象检查器事件”选项卡中，单击OnExit事件中的下拉列表，然后选择AllDBEditExit作为事件名称。

如何将组件调用到其自身事件 - DELPHI

1 个答案: