如何通过点击按钮调整TGridPanel中动态创建行的上下顺序

你需要先补充3个基础能力：选中行状态存储、行索引同步更新方法、行交换逻辑，再对应实现各个按钮的功能即可。

1. 先补充Form1的基础配置 #

首先在Form1的头文件(.h)中添加两个成员：

private:
    int CurSelectedRow; // 存储当前选中的行索引，初始值设为-1
    void __fastcall UpdateAllRowIndex(); // 公共方法：同步更新所有停靠窗体的行索引
    void __fastcall OnRowPanelClick(TObject *Sender); // 行面板点击事件，用于选中行

在Form1构造函数中初始化CurSelectedRow：

__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
    GridPanel1->RowCollection->Clear();
    CurSelectedRow = -1;
}

修改BitBtn_StepAddClick里创建Panel2的代码，绑定点击事件：

// 原有创建Panel2的代码后新增一行
Panel2->OnClick = OnRowPanelClick;

2. 实现行选中逻辑 #

void __fastcall TForm1::OnRowPanelClick(TObject *Sender)
{
    TPanel *clickPanel = dynamic_cast<TPanel*>(Sender);
    if(!clickPanel) return;
    // 获取点击面板所在的行号
    CurSelectedRow = GridPanel1->ControlCollection->IndexOf(clickPanel) / GridPanel1->ColumnCollection->Count;
    // 可选：添加选中视觉反馈，比如把选中行面板底色改成浅灰，其他行改回白色
    for(int i=0; i<GridPanel1->ControlCollection->Count; i++){
        TPanel *p = dynamic_cast<TPanel*>(GridPanel1->ControlCollection->Items[i]->Control);
        if(p) p->Color = (i == CurSelectedRow) ? clBtnFace : clWhite;
    }
    // 同步上下移按钮的可用状态
    BitBtn_StepUp->Enabled = CurSelectedRow > 0;
    BitBtn_StepDown->Enabled = CurSelectedRow < GridPanel1->RowCollection->Count -1;
}

3. 实现行索引同步方法 #

void __fastcall TForm1::UpdateAllRowIndex()
{
    for(int i=0; i<GridPanel1->ControlCollection->Count; i++){
        TPanel *p = dynamic_cast<TPanel*>(GridPanel1->ControlCollection->Items[i]->Control);
        if(!p || p->DockClients->Count ==0) continue;
        TForm2 *f = dynamic_cast<TForm2*>(p->DockClients->Items[0]);
        if(f){
            // 这里替换成你TForm2里显示行索引的Label控件名即可
            f->Label_RowIndex->Caption = IntToStr(i+1); // 索引从1开始就写i+1，从0开始直接写i
        }
    }
}

4. 实现上移/下移功能 #

上移按钮逻辑 #

void __fastcall TForm1::BitBtn_StepUpClick(TObject *Sender)
{
    if(CurSelectedRow <=0 || CurSelectedRow >= GridPanel1->RowCollection->Count) return;
    GridPanel1->BeginUpdate();
    int targetRow = CurSelectedRow -1;
    // 交换当前行和上一行的控件所属行
    TControl *curCtrl = GridPanel1->ControlCollection->Items[CurSelectedRow]->Control;
    TControl *targetCtrl = GridPanel1->ControlCollection->Items[targetRow]->Control;
    GridPanel1->ControlCollection->Items[CurSelectedRow]->Control = targetCtrl;
    GridPanel1->ControlCollection->Items[targetRow]->Control = curCtrl;
    // 更新选中行索引
    CurSelectedRow = targetRow;
    // 同步所有行索引
    UpdateAllRowIndex();
    GridPanel1->EndUpdate();
    // 更新按钮状态
    BitBtn_StepUp->Enabled = CurSelectedRow > 0;
    BitBtn_StepDown->Enabled = CurSelectedRow < GridPanel1->RowCollection->Count -1;
}

下移按钮逻辑 #

void __fastcall TForm1::BitBtn_StepDownClick(TObject *Sender)
{
    if(CurSelectedRow <0 || CurSelectedRow >= GridPanel1->RowCollection->Count -1) return;
    GridPanel1->BeginUpdate();
    int targetRow = CurSelectedRow +1;
    // 交换当前行和下一行的控件所属行
    TControl *curCtrl = GridPanel1->ControlCollection->Items[CurSelectedRow]->Control;
    TControl *targetCtrl = GridPanel1->ControlCollection->Items[targetRow]->Control;
    GridPanel1->ControlCollection->Items[CurSelectedRow]->Control = targetCtrl;
    GridPanel1->ControlCollection->Items[targetRow]->Control = curCtrl;
    // 更新选中行索引
    CurSelectedRow = targetRow;
    // 同步所有行索引
    UpdateAllRowIndex();
    GridPanel1->EndUpdate();
    // 更新按钮状态
    BitBtn_StepUp->Enabled = CurSelectedRow > 0;
    BitBtn_StepDown->Enabled = CurSelectedRow < GridPanel1->RowCollection->Count -1;
}

5. 实现删除选中行功能 #

void __fastcall TForm1::BitBtn_StepDeleteClick(TObject *Sender)
{
    if(CurSelectedRow <0 || CurSelectedRow >= GridPanel1->RowCollection->Count) return;
    GridPanel1->BeginUpdate();
    // 先删除对应控件和行
    GridPanel1->ControlCollection->Delete(CurSelectedRow);
    GridPanel1->RowCollection->Delete(CurSelectedRow);
    // 调整GridPanel高度
    if (GridPanel1->RowCollection->Count > 0)
        GridPanel1->Height = GridPanel1->Height - 156;
    else
        BitBtn_StepDelete->Enabled = false;
    // 重置选中行
    if(GridPanel1->RowCollection->Count ==0) CurSelectedRow = -1;
    else CurSelectedRow = min(CurSelectedRow, GridPanel1->RowCollection->Count-1);
    // 同步索引
    UpdateAllRowIndex();
    GridPanel1->EndUpdate();
}

6. 实现插入行功能 #

逻辑和新增行基本一致，只是插入位置是CurSelectedRow而不是末尾，插入后调用UpdateAllRowIndex即可完成索引同步。

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