>> How can I put this control up to the front ?
>
>Jose,
>
>Look in the Mere Mortals Developer's Guide in the section titled "Overview of Business Objects". There is an area called "A Word about ZOrder" that explains how to set the order of objects. While this section talks about business objects, what they are saying should answer your question.
>
>Kind Regards,
>
>Mat
Thanks for your reply Mat, but I´m trying to use ZOrder and it´s not working. Could you please take a look in the code below (Valid() method of the combobox) ?
The texbox are : txlCPF, txlCGC, txlNuINPI. When the user selection is "F", I want to bring txlCPF to the front and so on.
Regards,
LOCAL lnState
DODEFAULT()
lnState = GETFLDSTATE("tp_pessoa", "v_Titulares")
IF lnState <> 1
DO CASE
CASE This.Value = "F"
This.Parent.Parent.txlCPF.TextBox.Visible = .T.
This.Parent.Parent.txlCPF.TextBox.Enabled = .T.
This.Parent.Parent.txlCGC.TextBox.Visible = .F.
This.Parent.Parent.txlCGC.TextBox.Enabled = .F.
This.Parent.Parent.txlNuINPI.TextBox.Visible = .F.
This.Parent.Parent.txlNuINPI.TextBox.Enabled = .F.
This.Parent.Parent.txlCPF.TextBox.ZOrder(0)
CASE This.Value = "J"
This.Parent.Parent.txlCPF.TextBox.Visible = .F.
This.Parent.Parent.txlCPF.TextBox.Enabled = .F.
This.Parent.Parent.txlCGC.TextBox.Visible = .T.
This.Parent.Parent.txlCGC.TextBox.Enabled = .T.
This.Parent.Parent.txlNuINPI.TextBox.Visible = .F.
This.Parent.Parent.txlNuINPI.TextBox.Enabled = .F.
This.Parent.Parent.txlCGC.TextBox.ZOrder(0)
CASE This.Value = "E"
This.Parent.Parent.txlCPF.TextBox.Visible = .F.
This.Parent.Parent.txlCPF.TextBox.Enabled = .F.
This.Parent.Parent.txlCGC.TextBox.Visible = .F.
This.Parent.Parent.txlCGC.TextBox.Enabled = .F.
This.Parent.Parent.txlNuINPI.TextBox.Visible = .T.
This.Parent.Parent.txlNuINPI.TextBox.Enabled = .T.
This.Parent.Parent.txlNuINPI.TextBox.ZOrder(0)
ENDCASE
ENDIF