Fijate si funciona lo siguiente:
1) Agregale al Form un metodo para manejar los DragAndDrop ( yo lo llame
DragDropHandler )
2) En el Init() del form, agregale el siguiente código, que lo que hace es
indicarle al enano que está adentro que cada vez que se presione un botón
del mouse sobre alguna celda de la grilla, le pase el control al tu método
DragDropHandler:
For i = 1 to This.grid1.ColumnCount
BindEvent( This.grid1.Columns[ i ].Controls[2], "MouseDown", This,
"DragDropHandler" )
EndFor
3) El metodo DragDropHandler tiene el siguiente código, que le indica a la
celda de la columna activa que inicie el Drag.
LPARAMETERS nButton, nShift, nXCoord, nYCoord
If nButton = 1
loColumn = This.Grid1.Columns[ This.grid1.ActiveColumn ]
loColumn.Controls[ 2 ].Drag()
EndIf
4) En el méto DragDrop() del EditBox, poné el siguiente código, que
inicializa la propiedad Value con el contenido de la propiedad ControlSource
de la columna que se arrastró y soltó sobre el EditBox:
LPARAMETERS oSource, nXCoord, nYCoord
This.Value = oSource.Parent.ControlSource
5) Eso es todo.
Salu2, y espero te sirva
ricardo aidelman (socio 1545)
praxis computación
buenos aires
argentina
_____
De: [email protected] [mailto:[EMAIL PROTECTED] En nombre de Nando
Enviado el: Lunes, 12 de Noviembre de 2007 04:18 p.m.
Para: GUFA List Member
Asunto: [GUFA] Drag & Drop de controlsource
No pude abrir el ejemplo, me dice error en caption que la propiedad esta
fuera de los limites o algo asi.
El tema es hacer tipo modelos de contratos. O sea uno lol redacta y donde
dice nombre tiene que levantar el campo nombre del registro seleccionado. Se
me ocurrio traer los datos del cliente x ej en una grilla, y abajo el edit
donde va haciendo el modelo, entoces al querer agregar la referencia al
nombre arrastra directamente la celda nombre a la posicion del texto deseada
y listo.
Si hay alguna alternativa sera bien recibida.
Salu2
Nando
_____
De: [email protected] [mailto:[EMAIL PROTECTED] En nombre de Ricardo Aidelman
Enviado el: Lunes, 12 de Noviembre de 2007 04:08 p.m.
Para: GUFA List Member
Asunto: [GUFA] Drag & Drop de controlsource
Hola Nando:
No creo haber comprendido bien tu problema.
Te mando un ejemplito de como inicializar la propiedad value del EditBox con
el contenido de la propiedad ControlSource de la columna que se arrastó
sobre él.
Espero que te sirva
ricardo aidelman (socio 1545)
praxis computación
buenos aires
argentina
_____
De: [email protected] [mailto:[EMAIL PROTECTED] En nombre de Nando
Enviado el: Lunes, 12 de Noviembre de 2007 01:04 p.m.
Para: GUFA List Member
Asunto: [GUFA] Drag & Drop de controlsource
Buenas, quiero insertar en un editbox el controlsource de una columna de la
grilla mediante drag&drop. El tema es que nunca hice nada con esto y cuando
hago el d&d me adjunta el value de la columna pero quiero que aparezca el
controlsource.
Alguna idea?
Saludos
Nando
No virus found in this incoming message.
Checked by AVG Free Edition.
Version: 7.5.503 / Virus Database: 269.15.30/1125 - Release Date: 11/11/2007
09:50 p.m.
No virus found in this outgoing message.
Checked by AVG Free Edition.
Version: 7.5.503 / Virus Database: 269.15.30/1125 - Release Date: 11/11/2007
09:50 p.m.
No virus found in this incoming message.
Checked by AVG Free Edition.
Version: 7.5.503 / Virus Database: 269.15.30/1125 - Release Date: 11/11/2007
09:50 p.m.
No virus found in this outgoing message.
Checked by AVG Free Edition.
Version: 7.5.503 / Virus Database: 269.15.30/1125 - Release Date: 11/11/2007
09:50 p.m.
