如何在C++Builder中动态设置上下文菜单的CenterInWindow功能

你提到的带Position、Align、居中类选项的上下文菜单是C++Builder IDE设计阶段的专属菜单，运行时默认不会挂载到组件上，直接调用VCL原生API即可实现对应功能，以下是具体实现代码：

基础前提：动态创建组件示例 #

// 以动态创建TPanel组件为例，其他VCL可视组件逻辑通用
TPanel *dynPanel = new TPanel(this);
dynPanel->Parent = this;
dynPanel->Name = "DynamicPanel1";
dynPanel->SetBounds(10, 10, 200, 100); // 设置初始位置和尺寸

各菜单功能的实现代码 #

• Align 对齐功能：直接设置组件的Align属性即可，VCL原生支持所有对齐枚举：

  // 对齐到父容器顶部
  dynPanel->Align = alTop;
  // 对齐到父容器左侧
  dynPanel->Align = alLeft;
  // 填充整个父容器
  dynPanel->Align = alClient;
  // 取消对齐
  dynPanel->Align = alNone;
  

• Position 位置调整：直接修改Left、Top属性，或者调用SetBounds方法批量设置位置和尺寸：

  // 单独设置坐标
  dynPanel->Left = 50;
  dynPanel->Top = 30;
  // 同时设置位置和宽高
  dynPanel->SetBounds(50, 30, 200, 100);
  

• Horizontal 水平调整/居中：

  // 父容器内水平居中
  dynPanel->Left = (dynPanel->Parent->ClientWidth - dynPanel->Width) / 2;
  // 整个窗口内水平居中
  dynPanel->Left = (this->ClientWidth - dynPanel->Width) / 2;
  

• CenterInWindow 窗口居中：直接调用VCL组件自带的Center方法即可实现窗口内垂直+水平双向居中：

  dynPanel->Center();
  // 单独实现垂直居中
  dynPanel->Top = (dynPanel->Parent->ClientHeight - dynPanel->Height) / 2;
  

可选：自定义运行时右键菜单 #

如果需要在运行时给动态组件挂载和设计时类似的右键菜单，可动态创建TPopupMenu绑定到组件的PopupMenu属性：

// 动态创建右键菜单
TPopupMenu *dynPopup = new TPopupMenu(this);
// 添加居中菜单项
TMenuItem *miCenter = new TMenuItem(dynPopup);
miCenter->Caption = "CenterInWindow";
miCenter->OnClick = [dynPanel](TObject *Sender) {
    dynPanel->Center();
};
dynPopup->Items->Add(miCenter);
// 绑定到动态组件
dynPanel->PopupMenu = dynPopup;

内容的提问来源于stack exchange，提问作者homebase