点击事件动态对象引用

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;