使用其他表单事件过程

nix*_*nix 1 delphi events tform

有没有办法让一个表单使用另一个表单中的事件过程?

例如,我有一个名为PongForm的表单,另一个名为ObstPongForm.PongForm上有一个滚动条,ObstPongForm上有另一个滚动条.是否有可能让ObstPongForm在它自己的'tick'事件中使用PongForm的'tick'事件中的代码?也许让ObstPongForm继承PongForm?

Uwe*_*abe 5

您可以通过代码简单地分配它(只要您有权访问这两个实例):

ObstPongForm.Ticker.OnTick := PongForm.TickerTick;
Run Code Online (Sandbox Code Playgroud)

  • 请注意,当`ObstPongForm.Ticker.OnTick`触发时,`TickerTick`中的`Self`变量将是'PongForm`,而不是`ObstPongForm`. (6认同)