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

Question

我在delphi中有一个名为XYZ（sender：TObject）的过程。我的表单上有一个按钮。

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

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

Answer 1

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

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;