如何确定delphi中哪个事件调用过程

发布时间：2020-12-15 04:32:11 所属栏目：大数据来源：网络整理

导读：我在delphi中有一个名为XYZ(sender：TObject)的过程.我的表单上有一个按钮. Button.onclick:= xyz;Button.OnExit:= xyz; 这两个事件都调用相同的过程.我想在过程XYZ中确定哪个事件调用此(onclick或onexit)并根据该过程进行编码. 如何确定哪个事件被触发？谢

我在delphi中有一个名为XYZ(sender：TObject)的过程.我的表单上有一个按钮.

Button.onclick:= xyz;
Button.OnExit:= xyz;

这两个事件都调用相同的过程.我想在过程XYZ中确定哪个事件调用此(onclick或onexit)并根据该过程进行编码.
如何确定哪个事件被触发？谢谢

解决方法

您无法通过公平的方式掌握这些信息.解决方案是使用两个单独的顶级事件处理程序,这些处理程序又可以调用另一个方法传递一个参数来识别正在处理哪个事件.

type
  TButtonEventType = (beOnClick,beOnExit);

procedure TMyForm.ButtonClick(Sender: TObject);
begin
  HandleButtenEvent(beOnClick);
end;

procedure TMyForm.ButtonExit(Sender: TObject);
begin
  HandleButtenEvent(beOnExit);
end;

procedure TMyForm.HandleButtonEvent(EventType: TButtonEventType);
begin
  //use EventType to decide how to handle this
end;

（编辑：李大同）

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