FoxPro/Visual FoxPro - CONTAINER

   
Vista:
Imágen de perfil de EUSEBIO SANTANA

CONTAINER

Publicado por EUSEBIO SANTANA eusebiosantana@hotmail.com (31 intervenciones) el 05/09/2012 06:04:09
Hola, a todos los programadores!

A ver si pueden ayudarme.

Quisiera incorporar controles dentro de un CONTAINER, y hacer que el CONTAINER se mueva y arrastre todos los controles que hay en él, pero, sin crear una clase. Hay algunas formas para hacerlo? Gracias.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

CONTAINER

Publicado por Fidel (319 intervenciones) el 05/09/2012 17:31:52
[Init del Formulario]
Thisform.Addproperty("AlowMov",.f.)

[Objeto Container]
Modifica la propiedad MousePointer como te guste que se vea el puntero.

[MouseDown]
Thisform.alowmov=.t.

[MouseMove]
LPARAMETERS nButton, nShift, nXCoord, nYCoord
if thisform.alowmov
this.Left=nxCoord
THIS.TOP=nyCoord
endif

[MouseUp]
Thisform.alowmov=.f.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar