Can change the caption of TButton "on the fly"?

[Rafael Clemente]

Can the caption of a Button be changed at runtime?. This example just does not do anything:

Code: Select all  Expand view

#include "Ficewin.ch"
Function Main()
Define Window ownd from 0,0 to 200,200 pixel
@ 10,10 Button oBtn Prompt "Hello" size 60,20 pixel of ownd action Change(oBtn)
Activate window oWnd
Return Nil

Function Change(oBtn)
oBtn:cCaption := "Bye"
oBtn:Refresh()
Return nil

Thanks
Rafael

[Enrico Maria Giordano]

Code: Select all  Expand view

#include "Fivewin.ch"


FUNCTION MAIN()

    LOCAL oDlg

    LOCAL oBtn

    DEFINE DIALOG oDlg

    @ 3, 1 BUTTON oBtn;
           PROMPT "&Original";
           ACTION oBtn:SetText( "Changed" )

    ACTIVATE DIALOG oDlg;
             CENTER

    RETURN NIL

EMG

[Rafael Clemente]

Enrico:
Thank you once more!!!
Rafael