delphi - 获取点击对象的名称

Question

我在 viewport3D 中运行时制作了一堆 Tcube。我想知道一个是否被点击。如果是，则返回此 TCube 的名称。

我在说什么的小例子。

procedure blockClicked;
begin
  //get name of block
  //checkMode ( add , delete, other)
  //get name of block x, y, and z
  //do other stuff
end;

Answer 1

procedure TForm1.cubeClick(Sender: TObject);
var
  Cube: TCube;
begin
  // Senders points to the cube clicked
  cube := Sender as Tcube; 
end;