Bloquear reordenamiento de ciertos items en componente TButtonGroup

[osmeg]

Hola AgustinOrtu. Gracias por tu aporte.

Con la implementación indicada se soluciona parcialmente el problema. Ahora faltaría buscar la forma de restringir el reordenamiento si un item "no especial" se superpone sobre uno "especial". Este caso no se tiene en cuenta con el evento OnMouseDown dado. ¿Será posible utilizar el evento OnReorderButton para evitar este comportamiento?

Gracias por su atención y colaboración.

[[AgustinOrtu]]

Habria que ver, el OnReorderButton se dispara despues de alterar el orden

Código Delphi [-]
procedure TButtonGroup.DoReorderButton(const OldIndex, NewIndex: Integer);
var
  OldIndexID: Integer;
begin
  FIgnoreUpdate := True;
  try
    if FItemIndex <> -1 then
      OldIndexID := Items[FItemIndex].ID
    else
      OldIndexID := -1;
    FButtonItems.Items[OldIndex].Index := NewIndex;
    if OldIndexID <> -1 then
      FItemIndex := Items.FindItemID(OldIndexID).Index;
  finally
    FIgnoreUpdate := False;
  end;
  if HandleAllocated then
    RedrawWindow(Handle, nil, 0, RDW_INVALIDATE or RDW_UPDATENOW);
  if Assigned(FOnReorderButton) then
    FOnReorderButton(Self, OldIndex, NewIndex);
end;

[[AgustinOrtu]]

La unica forma que se me ocurrio es esta

Código Delphi [-]
procedure TForm1.ButtonGroup1ReorderButton(Sender: TObject; OldIndex,
  NewIndex: Integer);
var
  Old, New: TGrpButtonItem;
begin
  if NewIndex = 1 then
  begin
    ButtonGroup1.Items.BeginUpdate;
    try
      Old := ButtonGroup1.Items[OldIndex];
      New := ButtonGroup1.Items[NewIndex];
      Old.Index := NewIndex;
      New.Index := OldIndex;
    finally
      ButtonGroup1.Items.EndUpdate;
    end;
  end;
end;

Aunque desconozco que pasaria con muchos botones. Basicamente se esta pintando el control dos veces

Sino lo suyo es heredar de TButtonGroup y reescribir DoReorderButton

[osmeg]

Hola AgustinOrtu,

Gracias por tu aporte. Revisaré la alternativa que me das y te comento.