VB [（Function）处理＆hellip;]在Delphi中等效
说我们有类似的东西
Private Sub ClickObject(ByVal sender As System.Object, ByVal e as System.Eventargs)
Handles Object1.click, Object2.click, Object3.click
没有找到相关结果
已邀请:
2 个回复
苏髓骗撩
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;搜洼挂时
。添加一个并处理它的事件，就像你对其他控件的事件一样。分配控件的属性以引用您添加到操作列表中的操作。 （这也会导致控件从关联的操作中获取其标题和启用的可见属性。这意味着当菜单和工具栏按钮表示相同的命令时，它们更容易让菜单和工具栏按钮具有统一的状态。）