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

前端之家收集整理的这篇文章主要介绍了如何确定delphi中哪个事件调用过程前端之家小编觉得挺不错的,现在分享给大家,也给大家做个参考。
我在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;

猜你在找的Delphi相关文章