Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Bringing a control to the front
Message
General information
Forum:
Visual FoxPro
Category:
The Mere Mortals Framework
Miscellaneous
Thread ID:
00179981
Message ID:
00180277
Views:
18
>> 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
José Augusto Cavalcanti
Global Connection
jose.cavalcanti@globalconnection.com.br
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform