FoxPro/Visual FoxPro - Una duda que tengo al crear un objeto dentro de una clase

   
Vista:

Una duda que tengo al crear un objeto dentro de una clase

Publicado por Juan (71 intervenciones) el 11/03/2015 16:39:22
Cómo se puede acceder a la propiedad de un control desde dentro de ese mismo control?

Por ejemplo yo tengo el siguiente código

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
define class form1 as form
	caption='Formulario de prueba'
	height=600
	width=800
	autocenter=.t.
	maxbutton=.f.
	minbutton=.f.
	borderstyle=2
	showtips=.t.
	showwindow=1
	windowtype=1
	name="Form1"
 
	add object grid1 as grid with;
		top=5,;
		left=10,;
		height=480,;
		width=780
 
 
	add object command1 as commandbutton with;
		height=24,;
		width=70,;
		caption='Salir',;
		top=this.height-30,;
		left=(this.width/2)-(thisform.command1.width),;
		cancel=.t.,;
		tooltiptext='Salir',;
		name="Command1"
 
	procedure command1.click
		release thisform
	endproc
 
	procedure unload
		clear events
	endproc
enddefine

Como se puede observar el FORM1 tiene una propiedad "Width" y el COMMAND1 también tiene una propiedad "Width". Lo que quiero hacer para alinearlo a la izquierda es la mitad del FORM menos la mitad del COMMAND, para acceder al Width del FORM, se hace de la siguiente manera "this.width", pero para acceder al Width del mismo control, cómo se puede hacer sin tener que escribir todo "thisform.command1.width".

Un saludo.
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