Fórum Aumentar tamanho em run-time #167505

property SelCtrl: TControl;

if Assigned(Value) then
begin
  P1.left := Value.left -4;
  P2.left := Value.left -4;
  P3.left := Value.left -4;
  P4.left := Value.left + (Value.width div 2) -4;
  P5.left := Value.left + (Value.width div 2) -4;
  P6.left := Value.left + Value.width  -4;
  P7.left := Value.left + Value.width  -4;
  P8.left := Value.left + Value.width  -4;
  
  P1.top := Value.top -4;
  P4.top := Value.top -4;
  P6.top := Value.top -4;
  P2.top := Value.top + (Value.height div 2) -4;
  P7.top := Value.top + (Value.height div 2) -4;
  P3.top := Value.top + Value.height -4;
  P5.top := Value.top + Value.height -4;
  P8.top := Value.top + Value.height -4;

  P1.visible := true;
  P2.visible := true;
  P3.visible := true;
  P4.visible := true;
  P5.visible := true;
  P6.visible := true;
  P7.visible := true;
  P8.visible := true;
end
else
begin
  P1.visible := false;
  P2.visible := false;
  P3.visible := false;
  P4.visible := false;
  P5.visible := false;
  P6.visible := false;
  P7.visible := false;
  P8.visible := false;
end;

SelCtrl := TControl(sender);

XX,YY : integer;

XX := X;
YY := Y;
SelCtrl := TControl(Sender);

var
  PX, PY: Integer;
begin
  with TPanel(Sender) do
  if csClicked in ControlState then
  begin
    PX := Left + X - XX;
    PY := Top + Y - YY;
    case Tag of 
     1, 2, 3: 
       begin
         P1.Left := PX;
         P2.Left := PX;
         P3.Left := PX;
       end;
     6, 7, 8: 
       begin
         P6.Left := PX;
         P7.Left := PX;
         P8.Left := PX;
       end;
  end;

  case Tag of 
    1, 4, 6
    begin
      P1.Tp := SY;
      P4.Tp := SY;
      P6.Tp := SY;
    end;
    3, 5, 8
    begin
      P3.Tp := SY;
      P5.Tp := SY;
      P8.Tp := SY;
    end;
  end;  
  P4.Left := (P1.Left + P6.left) div 2;
  P5.Left := P4.Left;
  P2.Top := (P1.Top + P3.Top) div 2;
  P6.Top := P2.Top;
  SelCtrl.SetBounds(P1.left + 4, P1.Top + 4, P8.Left - P1.Left, P8.Top - P1.Top);