Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Showing a form on top of all others when called from ano
Message
General information
Forum:
Visual FoxPro
Category:
Forms & Form designer
Miscellaneous
Thread ID:
00808566
Message ID:
00808591
Views:
9
This message has been marked as a message which has helped to the initial question of the thread.
Try oTips.ZOrder(0)

>I have a little form that displays instructions at certain times. It is called from another form's method. The form is supposed to display (and does) at the upper left corner of the screen. But on screen that only display 1024x768, it is partially hidden by the calling form. If I make the little form model, the primary form does not display until the little form is closed.
>
>Here are some of the properties on the little form:
>
>AlwaysOnTop=.t.
>Caption=blank
>maxbutton=.f.
>minbutton=.f.
>name=cttips
>showWindows=0 (default)
>Titlbar=0
>visible=.t.
>windowType=0 Modeless
>
>This calling form is a modeless, autocenter=.t.
>Here is the code in the calling form to create the window:
>
>
>...
>...
>thisform.Refresh()
>
>IF thisform.lshowtips=.t.
>**************************************************************
>* Create the scheduling instructions window
>**************************************************************
>	RELEASE oTips,oWorkingWindows
>	SET MESSAGE TO [Creating Scheduling Instructions]
>	PUBLIC oTips,xShow,oWorkingWindow
>	xShow=.t.
>	oTips=.t.
>	oWorkingWindow=.t.
>	DO FORM cttip NAME oTips LINKED noshow
>	ON KEY LABEL CTRL+H otips.Hide
>	oTips.label2.caption=ALLTRIM(curInst.SchedulingInstr)
>	oTips.show(1)
>ENDIF
>
>
>This is the last code in a button click on the calling form. The button click is called ran during the form show method.
>
>So I'm wondering if anyone knows how I can force this window to the top. Seems like WONTOP only returns T/F if the window is on top, but doesn't force the change.
>
>Thanks
>Kirk
Mark McCasland
Midlothian, TX USA
Previous
Reply
Map
View

Click here to load this message in the networking platform