Xailer & OZ Software

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

¿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
>
>
>
>
>

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
>>
>>
>>
>>

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
>
>
>
>
>
--