delphi Sender和Tag的用法1

以下是详细讲解“Delphi Sender和Tag的用法1”的完整攻略，包括使用步骤和两个示例说明。

使用步骤

使用Delphi中的Sender和Tag属性的步骤如下：

1. 在控件的事件处理程序中，使用Sender属性获取触发事件的控件对象。
2. 使用Tag属性设置或获取控件的标识信息。

示例说明

以下是两个使用Sender和Tag属性的示例：

示例1：使用Tag属性标识控件

在这个示例中，我们将使用Tag属性来标识三个不同的编辑框，并在按钮的Click事件处理程序中根据标识信息执行不同的操作。

procedure TForm1.FormCreate(Sender: TObject);
begin
  // 设置控件的标识信息
  Edit1.Tag := 1;
  Edit2.Tag := 2;
  Edit3.Tag := 3;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  // 获取触发事件的控件对象
  if Sender is TButton then
  begin
    // 获取控件的标识信息
    case TButton(Sender).Tag of
      1: ShowMessage('Edit1');
      2: ShowMessage('Edit2');
      3: ShowMessage('Edit3');
    end;
  end;
end;

在上面的示例中，我们在FormCreate事件处理程序中使用Tag属性设置三个编辑框的标识信息。然后，在Button1的Click事件处理程序中，我们使用Sender属性获取触发事件的控件对象，并使用Tag属性获取控件的标识信息。根据标识信息，我们可以执行不同的操作。

示例2：使用Sender属性传递信息

在这个示例中，我们将使用Sender属性来传递ListBox的选中项的文本信息，并在ListBox的Click事件处理程序中显示选中项的文本信息。

procedure TForm1.ListBox1Click(Sender: TObject);
begin
  // 获取触发事件的控件对象
  if Sender is TListBox then
  begin
    // 获取选中项的文本信息
    ShowMessage(TListBox(Sender).Items[TListBox(Sender).ItemIndex]);
  end;
end;

在上面的示例中，我们在ListBox1的Click事件处理程序中使用Sender属性获取触发事件的控件对象。然后，我们使用TListBox(Sender).ItemIndex获取选中项的索引，再使用TListBox(Sender).Items[TListBox(Sender).ItemIndex]获取选中项的文本信息。通过使用Sender属性，我们可以在同一个事件处理程序中处理多个控件的事件。