显示鼠标左侧的组件

Question

这是为了学习......

我正在尝试在那里显示一个组件（标签），用鼠标右键单击。

如何使用鼠标右键单击表单周围的控件？

Answer 1

为表单指定一个OnMouseUp事件处理程序，并将控件的Left和Top属性设置为提供的XY坐标，这些坐标相对于表格＆＃39;客户区：

procedure TMyForm.FormMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if Button = mbRight then
  begin
    Label1.Left := X;
    Label1.Top := Y;
  end;
end;

如果控件不是Form本身的直接子节点，而是另一个控件的子节点，例如TPanel，则将OnMouseUp事件处理程序分配给Parent控件。