In order for this site to work correctly we need to store a small file (called a cookie) on your computer. Most every site in the world does this, however since the 25th of May 2011, by law we have to get your permission first. Please abandon the forum if you disagree.

Para que este foro funcione correctamente es necesario guardar un pequeño fichero (llamado cookie) en su ordenador. La mayoría de los sitios de Internet lo hacen, no obstante desde el 25 de Marzo de 2011 y por ley, necesitamos de su permiso con antelación. Abandone este foro si no está conforme.

ayuda con esto

Foro público de Xailer en español
Responder
GoosFancito[1]
Mensajes: 15
Registrado: Mié Jul 05, 2006 9:06 pm

ayuda con esto

Mensaje por GoosFancito[1] »

pueden por favor pasarme el proyecto
creado, porque no me estoy dando cuenta como
se maneja esto de redefinir o definir eventos.
gracias.
CLASS TButton FROM TStdControl
...
EVENT OnClick( oSender )
...
ENDCLASS
METHOD Click() CLASS TButton
::OnClick()
RETURN Nil
En el formulario:
CLASS TMiForm FROM TForm
CONSTRUCTOR Create( oParent )
METHOD Button1Click( oSender )
ENDCLASS
METHOD Create( oParent )
...
// método 1: bloque de código
::oButton1:OnClick := {| oSender | ::Button1Click( oSender ) }
// método 2: nombre de un método del formulario
::oButton1:OnClick := "Button1Click"
// método 3: puntero a un método del formulario
// hay que hacerlo de esta forma para que funcione en xHarbour
::oButton1:_OnClick( @TMiForm_Button1Click )
RETURN Self
METHOD Button1Click( oSender )
MsgInfo( "Click!" )
RETURN Nil
Arriba
jasm.quitaesto
Mensajes: 420
Registrado: Sab Ago 16, 2008 9:06 pm

ayuda con esto

Mensaje por jasm.quitaesto »

¿Puedes explicar mejor lo que quieres hacer?
Saludos
Alf+.
Lord Gustavo Miguel Angel escribió:
> pueden por favor pasarme el proyecto
> creado, porque no me estoy dando cuenta como
> se maneja esto de redefinir o definir eventos.
> gracias.
>
>
>
> CLASS TButton FROM TStdControl
>
> ...
>
> EVENT OnClick( oSender )
>
> ...
>
> ENDCLASS
>
>
>
> METHOD Click() CLASS TButton
>
> ::OnClick()
>
> RETURN Nil
>
>
>
> En el formulario:
>
>
>
> CLASS TMiForm FROM TForm
>
> CONSTRUCTOR Create( oParent )
>
> METHOD Button1Click( oSender )
>
> ENDCLASS
>
>
>
> METHOD Create( oParent )
>
> ...
>
> // método 1: bloque de código
>
> ::oButton1:OnClick := {| oSender | ::Button1Click( oSender ) }
>
> // método 2: nombre de un método del formulario
>
> ::oButton1:OnClick := "Button1Click"
>
> // método 3: puntero a un método del formulario
>
> // hay que hacerlo de esta forma para que funcione en xHarbour
>
> ::oButton1:_OnClick( @TMiForm_Button1Click )
>
> RETURN Self
>
>
>
> METHOD Button1Click( oSender )
>
> MsgInfo( "Click!" )
>
> RETURN Nil
>
>
>
>
>
Arriba
GoosFancito[1]
Mensajes: 15
Registrado: Mié Jul 05, 2006 9:06 pm

ayuda con esto

Mensaje por GoosFancito[1] »

quiero ver funcionar ese ejemplo que esta en la ayuda
del xailer.
gracias.
"José Alfonso Suárez Moreno" <jasm.quitaesto@tpvsoft.com> escribió en el
mensaje news:4a3f36e2$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
> ¿Puedes explicar mejor lo que quieres hacer?
>
> Saludos
>
> Alf+.
>
>
> Lord Gustavo Miguel Angel escribió:
>> pueden por favor pasarme el proyecto
>> creado, porque no me estoy dando cuenta como
>> se maneja esto de redefinir o definir eventos.
>> gracias.
>>
>>
>>
>> CLASS TButton FROM TStdControl
>>
>> ...
>>
>> EVENT OnClick( oSender )
>>
>> ...
>>
>> ENDCLASS
>>
>>
>>
>> METHOD Click() CLASS TButton
>>
>> ::OnClick()
>>
>> RETURN Nil
>>
>>
>>
>> En el formulario:
>>
>>
>>
>> CLASS TMiForm FROM TForm
>>
>> CONSTRUCTOR Create( oParent )
>>
>> METHOD Button1Click( oSender )
>>
>> ENDCLASS
>>
>>
>>
>> METHOD Create( oParent )
>>
>> ...
>>
>> // método 1: bloque de código
>>
>> ::oButton1:OnClick := {| oSender | ::Button1Click( oSender ) }
>>
>> // método 2: nombre de un método del formulario
>>
>> ::oButton1:OnClick := "Button1Click"
>>
>> // método 3: puntero a un método del formulario
>>
>> // hay que hacerlo de esta forma para que funcione en xHarbour
>>
>> ::oButton1:_OnClick( @TMiForm_Button1Click )
>>
>> RETURN Self
>>
>>
>>
>> METHOD Button1Click( oSender )
>>
>> MsgInfo( "Click!" )
>>
>> RETURN Nil
>>
>>
>>
>>
Arriba
jrcpoli-quitar
Mensajes: 558
Registrado: Mar Feb 09, 2010 2:26 pm

ayuda con esto

Mensaje por jrcpoli-quitar »

Saludos:
La clase TButton y el método no es necesario implementarlo puesto que si
lo añades a un formulario en el IDE ya está asignado, el resto te lo he
puesto en el ejemplo que te adjunto, en la ayuda detalla como se
implementa todo el conjunto pero en realidad para su uso desde el IDE la
cosa es mucho mas sencilla.
Te adjunto un ejemplo, espero te sirva de orientación.
José Ramón Castro.
Lord Gustavo Miguel Angel escribió:
> pueden por favor pasarme el proyecto
> creado, porque no me estoy dando cuenta como
> se maneja esto de redefinir o definir eventos.
> gracias.
>
>
>
> CLASS TButton FROM TStdControl
>
> ...
>
> EVENT OnClick( oSender )
>
> ...
>
> ENDCLASS
>
>
>
> METHOD Click() CLASS TButton
>
> ::OnClick()
>
> RETURN Nil
>
>
>
> En el formulario:
>
>
>
> CLASS TMiForm FROM TForm
>
> CONSTRUCTOR Create( oParent )
>
> METHOD Button1Click( oSender )
>
> ENDCLASS
>
>
>
> METHOD Create( oParent )
>
> ...
>
> // método 1: bloque de código
>
> ::oButton1:OnClick := {| oSender | ::Button1Click( oSender ) }
>
> // método 2: nombre de un método del formulario
>
> ::oButton1:OnClick := "Button1Click"
>
> // método 3: puntero a un método del formulario
>
> // hay que hacerlo de esta forma para que funcione en xHarbour
>
> ::oButton1:_OnClick( @TMiForm_Button1Click )
>
> RETURN Self
>
>
>
> METHOD Button1Click( oSender )
>
> MsgInfo( "Click!" )
>
> RETURN Nil
>
>
>
>
>
--
Arriba
Responder

Volver a “Xailer Spanish”