Componente de arrastrar

[gianfranco_tont]

ejemplo6.rar

bueno le envío un ejemplo que estoy haciendo: el de abajo es un dbgrid con un clientdataset, lo que esta arriba es Dbctrlgrid. lo que yo quisiera hacer y no se si lo estoy haciendo con la herramienta correcta es que en el edit1 atravez del evento onchange le coloco una consulta sobre la tabla de productos utilizando un like, obviamente en este momento en el Dbctrlgrid deberan aparecerme todos los productos de forma vertical que coincidan con el like, se debe mostrar de esta forma la foto pequeña del productos, debajo de la foto debo ver por ejemplo la cantidad en inventario y la descripcion del producto. ahora bien quiero que el usuario selecione la foto con el mouse y lo arrastre hasta el dbgrid que esta abajo y al soltarlo en el dbgrid debe llenar la columna solo con los datos requeridos, como emeplo co_art, cost_unit. etc. no se si tienen alguna idea de como hacerlo o que herramienta usar para eso. saludos

[ecfisa]

Hola Gianfranco.

Si ahora te entiendo perfectamente, pero creo sería mas apropiado usar un componente que pueda mostrar texto y recibir Drag&Drop independientemente de los cambios del TDataSet.

Puede ser cualquiera de tu gusto, te pongo un ejemplo simple que usa un TStaticText:

Código Delphi [-]
...
procedure TForm1.DBImage1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  DBImage1.BeginDrag(True);
end;

procedure TForm1.StaticText1DragDrop(Sender, Source: TObject; X,
  Y: Integer);
begin
  with DBImage1.DataSource.DataSet do
    StaticText1.Caption:= FieldByName('Campo1').AsString + ' '+
      FieldByName('Campo2').AsString+' '+FieldByName('Campo3').AsString +' '+
      ...;

end;

procedure TForm1.StaticText1DragOver(Sender, Source: TObject; X,
  Y: Integer; State: TDragState; var Accept: Boolean);
begin
  Accept:= Source is TDBImage;
end;
...

Saludos.

[gianfranco_tont]

con cual componente pudiera hacerlo, tomando en cuenta que el de arriba debe ser horizontal y debe mostrarme la imagen y el de abajo puede ser un dbgrid?

[ecfisa]

Empezado por gianfranco_tont

con cual componente pudiera hacerlo, tomando en cuenta que el de arriba debe ser horizontal y debe mostrarme la imagen y el de abajo puede ser un dbgrid?

No le veo el sentido de usar un TDBGrid tratándose del mismo TDataSet... pero en su lugar podría ser un TStringGrid.

Saludos.

Edito: ¿ O el DBGrid estaría relacionado con otro TDataSet ?

[[Caral]]

Hola
Con esto de mover componentes me acorde del maestro Neftali y un ejemplo muy bueno que hizo.
Con su código he hecho este pequeño juego.
Con el mouse (click Derecho) tomad la imagen y arrastrarla al dbgrid.
Saludos

[gianfranco_tont]

oye caral, tu ejemplo es justo lo que estaba buscando, vale eres grande!!! pero ahora tengo una sola duda como hago ya que tu solo tienes 4 imagenes arriba pero yo necesito estar enlazado con la base de datos de productos asi que voy a tener muchissima imagenes la cual la pueda navegar en ella con un scrol ademas quisiera que en un evento onchange de un edit.text colocarle un like para reducirla busqueda, ademas otra cosa debajo de la imagen debe venir un label con la informacion de cantidad y descripcion de producto.

[[Caral]]

Hola
Tu en realidad, segun veo vas a tener solo una imagen que va a ir cambiando, es lo mismo, solo que con una, no creo que sea con muchas.
La imagen la puedes poner dentro de un panel y en este poner el label o lo que necesites, a la hora de mmoverla tendra que cambiar el codigo de imagen a panel.
Para que filtra hazte un procedimiento y llamalo.
Saludos

[gianfranco_tont]

Empezado por Caral

Hola
Con esto de mover componentes me acorde del maestro Neftali y un ejemplo muy bueno que hizo.
Con su código he hecho este pequeño juego.
Con el mouse (click Derecho) tomad la imagen y arrastrarla al dbgrid.
Saludos

caral, ya pude resolver que la imagen se guardara en la tabla y ahora si puedo ver toda la informacion en el DBctrlgrid perfectamente, me copie lo que necesite de tu aplicacion y puedo arrastrar la foto que esta dentro del DBctrlgrid pero ahora tengo un problemita la imagen no sale del DBctrlgrid para llevarla al dbgrid.

como pudiera solucionar eso?

[gianfranco_tont]

Empezado por gianfranco_tont

caral, ya pude resolver que la imagen se guardara en la tabla y ahora si puedo ver toda la informacion en el DBctrlgrid perfectamente, me copie lo que necesite de tu aplicacion y puedo arrastrar la foto que esta dentro del DBctrlgrid pero ahora tengo un problemita la imagen no sale del DBctrlgrid para llevarla al dbgrid.

como pudiera solucionar eso?

Alguien tiene alguna idea como ayudar con esto?

[gianfranco_tont]

Empezado por gianfranco_tont

caral, ya pude resolver que la imagen se guardara en la tabla y ahora si puedo ver toda la informacion en el DBctrlgrid perfectamente, me copie lo que necesite de tu aplicacion y puedo arrastrar la foto que esta dentro del DBctrlgrid pero ahora tengo un problemita la imagen no sale del DBctrlgrid para llevarla al dbgrid.

como pudiera solucionar eso?

El problema en realidad es que puedo arrastrar la imagen pero solo dentro del dbctrlgrid. Trato de explicarme mejor tengo un dbctrlgrid en la parte de arriba de un from y debajo tengo un dbgrid, yo deberia poder arrastrar la imagen desde el dbctrlgrig al dbgrid y en ese ultimo finalmente llenar el registro con los datos necesarios que provienen de una tabla en sql. Ahora bien no logro arrastrar la imagen desde el dbctrlgrid hasta el dbgrid ya que la imagen selecionada no sale del dbctrlgrid, solo puedo desplazarla dentro del mismo.