在单击事件动态对象引用上

Question

我在运行时创建了未知数量的标签，并在点击事件处理程序上添加。找出我点击哪个标签的代码是什么？

谢谢。

Answer 1

在发布问题后我终于找到了答案：|

我需要在点击事件中使用（Sender as TLabel）。

procedure TfrmShowing.lblShowtimesClick(Sender: TObject);
var
  iCount : integer;
begin
  //Find the clicked on movie
  for iCount := 0 to Length(arrMoviePanels) do
    begin
      if arrMoviePanels[iCount] = (Sender as TLabel).Parent then
        sClickedMovie := arrMovies[iCount];
    end;
end;