ATOUTFOX
COMMUNAUTÉ FRANCOPHONE DES PROFESSIONNELS FOXPRO
Visual FoxPro : le développement durable

Forum AtoutFox : Re: choisir ce qui apparaît dans le menu "fenêtre"   

Sujet

rss Flux RSS des derniers messages

Vous devez vous identifier pour pouvoir poser une question ou répondre.

jeu. 02 août 2018, 20h43
eddymaue
atoutfox.public.association

Re: choisir ce qui apparaît dans le menu "fenêtre"

Bonsoir Jean-claude

il faut créer un autre formulaire dans lequel tu vas exécuter ton menu.
Le nouveau formulaire sera la ou est le curseur de ta sourie OU si tu
en décides autrement en renseignant la position désirée

bonne lecture et bon test

[VFP/]
Public oForm as Form

m.oForm = CreateObject("mnxform")
m.oForm.Visible = .t.

Read EVENTS


Define Class mnxform as Form
Desktop = .T.
ShowWindow = 2
DoCreate = .T.
width = 0
height = 0
visible = .t.
Name = "Form1"


Procedure activate
this.afficheMenu()
endproc


Procedure AfficheMenu
lPara tnLeft, tnTop

* *********************************************************
* *
* * 2 août 2018 SHORTCUT_TEST.MPR 20:18:37
* *
* *********************************************************
* *********************************************************
* *
* * Menu Definition
* *
* *********************************************************
*
local lnLeft, lnTop

m.lnLeft = iif( vartype( m.tnLeft ) = "I" , m.tnLeft, mrow() )
m.lnTop = iif( vartype( m.tnTop ) = "I" , m.tnTop , mcol() )



DEFINE POPUP shortcut SHORTCUT RELATIVE FROM MROW(),MCOL()
DEFINE BAR 1 OF shortcut PROMPT "test1"
DEFINE BAR 2 OF shortcut PROMPT "test2"
DEFINE BAR 3 OF shortcut PROMPT "test3"
DEFINE BAR 4 OF shortcut PROMPT "test4"
DEFINE BAR 5 OF shortcut PROMPT "test5"

ACTIVATE POPUP shortcut

EndProc

enddefine

[VFP]

--
a+ Eddy
L'incompréhensible se réalise toujour avant le compréhensible parce que
tout simplement on ne l'a pas encore assimilé
Permalink : http://www.atoutfox.org/nntp.asp?ID=0000019156
19 095 messages dans le forum • Liste complète des messages

Publicité

Les pubs en cours :

www.atoutfox.org - Site de la Communauté Francophone des Professionnels FoxPro - v3.4.0 - © 2004-2018.
Cette page est générée par un composant COM+ développé en Visual FoxPro 9.0