Como seleccionar multiples controles y moverlos

[JoAnCa]

Hola a todos
Siguiendo con mi mapa de red, que ya esta funcionando bien, quisiera mejorarlo un poco.

Necesito ahora que se puedan seleccionar multiples TImages (nodos), ya sea presionando Ctrl o Shift, o arrastrando con el mouse un recuadro que seleccione a los que contenga en su interior, y poder mover todos los nodos seleccionados

Con este codigo, logor mover cada nodo con su etiqueta asociada, pero solo uno a la vez

Código Delphi [-]
//----- Para Seleccionar y Mover el Nodo -----
procedure TfrmPrincipal.ControlMouseDown( Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer );
begin
  CompCorX:=X;
  CompCorY:=Y;
  CompMoviendo:=True;
  TMovible(Sender).MouseCapture:=True;

  //--- Resaltar Nodo Seleccionado ---
  with shpSelect do
  begin
    Parent:=(Sender as TsImage).Parent;
    Visible:=True;
    Top:=TsImage(Sender).Top-1;
    Left:=TsImage(Sender).Left-1;
  end;
end;

procedure TfrmPrincipal.ControlMouseMove( Sender: TObject; Shift: TShiftState; X, Y: Integer );
begin
  if CompMoviendo then
  begin
    TImage(Sender).Left:=TImage(Sender).Left - (MouseDownSpot.x - x) - 24;
    TImage(Sender).Top:=TImage(Sender).Top - (MouseDownSpot.y - y) - 24;

    //--- Mover la etiqueta asociada ---
    lblDisp:=TLabel(FindComponent(TImage(Sender).Hint));
    lblDisp.Left:=TImage(Sender).Left+25 - Round(lblDisp.Width/2);
    lblDisp.Top:=TImage(Sender).Top + TImage(Sender).Height + 2;

    //--- Resaltar Nodo Seleccionado ---
    with shpSelect do
    begin
      SendToBack;
      Visible:=True;
      Top:=TsImage(Sender).Top-1;
      Left:=TsImage(Sender).Left-1;
    end;
  end;
end;

procedure TfrmPrincipal.ControlMouseUp( Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer );
begin
  if CompMoviendo then
  begin
    CompMoviendo:=False;
    TMovible(Sender).MouseCapture:=False;
  end;

  //----- Para guardar las nuevas coordenadas en la BD -----
  if (Sender is TImage) then imgSelect:=TImage(Sender);
  NombDisp:=Copy(imgSelect.Name, 4, Length(imgSelect.Name));
  with DataMod do
  begin
    if (Sender as TsImage).Parent = sbMapaRed then
      begin
        fdtRedes.Locate('IdRed', NombDisp, []);
        fdtRedResum.Locate('IdRed', NombDisp, []);
        fdtRedes.Edit;
          fdtRedesPosX.Value:=imgSelect.Left;
          fdtRedesPosY.Value:=imgSelect.Top;
        fdtRedes.Post;
      end;
    if (Sender as TsImage).Parent = sbMapaLAN then
      begin
        fdtDisposit.Locate('IdDisp', NombDisp, []);
        fdtDispInf.Locate('IdDisp', NombDisp, []);
        fdtDisposit.Edit;
          fdtDispositPosX.Value:=imgSelect.Left;
          fdtDispositPosY.Value:=imgSelect.Top;
        fdtDisposit.Post;
      end;
  end;
end;

Como modificaria el código para lograr lo que quiero ?
O que tengo que agregar ?

[bitbow]

Existe un componente de Neftali (no estoy seguro), el codigo de ejemplo se encuentra en el ftp del foro, es para mover componentes en runtima, no se si ese te sirva.

Saludos.

[JoAnCa]

Empezado por bitbow

Existe un componente de Neftali (no estoy seguro), el codigo de ejemplo se encuentra en el ftp del foro, es para mover componentes en runtima, no se si ese te sirva.

Saludos.

Pues lo conozo, y lo probe, pero solo sirve para mover uno solo, no me permite la seleccion multiple

[roman]

Me pafrece que lo que andas buscando son los Cindy Components, en particular el TcyResizer:

TcyResizer: move and resize components at run-time like delphi 2009 does

LineComment Saludos

[bitbow]

Tiene razon Roman, ademas que en el Pack de demo vienen dos referentes al componentes.

[dec]

Hola a todos,

Empezado por roman

Me pafrece que lo que andas buscando son los Cindy Components, en particular el TcyResizer:

LineComment Saludos

+1 por "TcyResizer" en alguno de mis proyectos con muy buenos resultados. Sin desmerecer los componentes de Neftalí, por supuesto.

[roman]

La verdad es que debí acreditarte No recordaba cuáles eran los componentes, así que fuí a ese alguno de tus proyectos y miré la lista de componentes usados. Por cierto, que ese alguno de tus proyectos es espectacular. Digo, para quien no lo sepa

LineComment Saludos

[JoAnCa]

Empezado por roman

Me pafrece que lo que andas buscando son los Cindy Components, en particular el TcyResizer:

LineComment Saludos

Instale los Cindy Components, pero la verdad que no lo entiendo bien, en la descarga no vino con ejemplos para guiarme y saber como usar el TcyResizer

Una pregunta: Tambien me permitirá hacer selecciones multiples de TImages ?

[dec]

Hola a todos,

Los ejemplos de los Cindy Components se descargan por separado aquí (mira en la carpeta "Demo"). Verás que hay al menos un par de ellos que usan el componente "cyResizer".

[roman]

Tal como dice dec, los demos viene aparte. La idea básica es muy sencilla:

1. Escoges un contenedor donde colocar los controles que desees redimensionar y/o mover. Puede ser todo el formulario o, por ejemplo, un panel.
   
   
2. Colocas un componente cyResizer.
   
   
3. Activas el "modo de edición" del contenedor del paso 1:
   
   

   Código Delphi [-]
   cyResizer1.Activate(Panel1);

4. Los componentes dentro de dicho contenedor son los que podras redimensionar y/o mover.
   
   
5. Sales del "modo de edición" con
   
   

   Código Delphi [-]
   cyResizer1.Deactivate();

LineComment Saludos