Programar metodo DBLCLICK en ejecución de un Grid

01/04/2004 - 21:52 por Manuel0 | Informe spam
Hola Amigos
Tengo algunos problemitas, si me pueden ayudar , les estaré muy agradecido.

1 Creo un Grid en Ejecución, pero como puedo crear o programar el Metodo
DoubleClick.

2 También quiero abusar de vuestra ayuda ytengo otro problemita con un
Grid, pero este no lo creo en ejecución, sino en diseño, y, resulta que me
pongo en el text de cada columna para programar en metodo DoubleClick. La
idea es programar 1 solo metodo DoubleClick que se active para toda la
linea, asi no tener que repetir el mismo Código en cada Text del Grid..


Desde ya
muchas gracias
Manuel G.

Preguntas similare

Leer las respuestas

#1 Iturralde C.
02/04/2004 - 16:28 | Informe spam
Para la 2. Si quieres que toda la fila responda al mismo
DobeClick, porque no programas el DobleClick del Grid?
Respuesta Responder a este mensaje
#2 Iturralde C.
02/04/2004 - 16:43 | Informe spam
Para la primera pegunta:
with _screen
.AddObject("grdDatos", "miGrid")
* asignale los datos
.grdDatos.Visible = .T.
.RemoveObject("grdDatos")
endwith

**************************************************
define class miGrid as grid
procedure Init
wait window "hola"
endproc
enddefine

Si corres el programita veras que te saluda, para que te
funcione debes cambiar "_screen" por tu formulario y
el "Init" por el procedimiento que tu quieras, en tu
caso "DblClick".
Saludos ...
Respuesta Responder a este mensaje
#3 Mauricio Oyarzún
02/04/2004 - 19:54 | Informe spam
Hola:

Yo necesitaba hacer lo mismo y gracias a Google encontré lo siguiente:

( Enviado originalmente por Gustavo Lanstein el 07 de Julio de . ¡ 1997
! y modificado por mí )

Tienes que escribir esto en un PRG y poner en tu formulario "Set Procedure
to Tuprograma.prg"

****************
* Tuprograma.prg *
****************
Define Class MyColumn as Column

&& agrego un objeto header1 a la columna y paso como parámetros algunas
propiedades

add object "Header1" as "header" with
caption="header1",name="header1",fontbold=.t.,alignment=2


&& Si queremos escribir código para el método asociado al evento dblclick
del header

procedure Header1.dblclick

endproc


&& Si queremos escribir código para el método asociado al evento resize del
header

procedure Header1.resize

endproc


&& Agrega Textbox y pasa parametros para configurarlo

add object "Text1" as "Textbox" with Alignment=3, Borderstyle=0, Margin=0,
Readonly=.T., ;
MousePointer=0, SelectOnEntry=.T.


&& Código para Doble Click:

Procedure Text1.DblClick
*
* aquí pones el código que deseas ejecutar con doble click
*
Endproc


&& Si quieres que haga lo mismo que Doble Click al presionar la tecla Enter:

Procedure Text1.KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
*
IF nKeyCode
*
This.DblClick
*
ENDIF
*

enddefine

******************
* Fin Tuprograma.prg *
******************

Una vez que está definida la clase 'MyColumn' con todas las particularidades
de la
misma, lo único que te queda por hacer es en tu formulario poner:

thisform.grid1.AddObject("Columna1","MyColumn")


En las propiedades del Grid:

ColumnCount = 0

Espero te sirva, yo lo adapté a lo que requería, lo probé y funciona...

Saludos,

Mauricio Oyarzún (MOV)

Santiago - Chile
VFP 8 - SP1
email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida