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
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.
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=800autocenter=.t.
maxbutton=.f.
minbutton=.f.
borderstyle=2showtips=.t.
showwindow=1 windowtype=1name="Form1"
add object grid1 as grid with;
top=5,;
left=10,;
height=480,;
width=780add 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.clickrelease 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
0