获取单击对象的名称

Question

我在viewport3D中运行时制作了一堆Tcubes。我想知道是否点击了一个。如果是，则返回此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;