vb.net – VB [(函数)处理…]等效于Delphi

发布时间：2020-12-17 07:30:19 所属栏目：百科来源：网络整理

导读：说我们有类似的东西 Private Sub ClickObject(ByVal sender As System.Object,ByVal e as System.Eventargs) Handles Object1.click,Object2.click,Object3.click 在“Handles”之后接受事件并将它们发送到函数. 在Delphi中是否有相同的功能,我该怎么做？解

说我们有类似的东西

Private Sub ClickObject(ByVal sender As System.Object,ByVal e as System.Eventargs) 
Handles Object1.click,Object2.click,Object3.click

在“Handles”之后接受事件并将它们发送到函数.

在Delphi中是否有相同的功能,我该怎么做？

解决方法

是.

您可以创建一个事件处理程序并将其分配给多个控件.

procedure TForm1.ThreeControlsClick(Sender: TObject);
begin
  if Sender = Button1 then
    HandleButton1Click
  else if Sender = ComboBox1 then
    HandleComboBox1Click
  else if Sender = Edit1 then
    HandleEdit1Click;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Button1.OnClick := ThreeControlClick;
  ComboBox1.OnClick := ThreeControlClick;
  Edit1.OnClick := ThreeControlClick;
end;

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!