Click derecho aparesca menu en foxpro

Que tal quiero saber si puedo crear un menu dando click derecho sobre un objeto,

1 respuesta

Respuesta
1
Escribe un Prg con lo siguiente
PROCEDURE mimenu
   Define Popup data_entry Shadow ShortCut Relative From Mrow(), Mcol() Margin
DEFINE BAR 1 OF data_entry PROMPT ' \<Buscar ' 
   			ON BAR 3 OF data_entry activate popup Busca
		Define Popup Busca Shadow ShortCut Relative Margin
			DEFINE BAR 1 OF Busca PROMPT ' \<F.Emision ' 
			DEFINE BAR 2 OF Busca PROMPT ' \<Documento '
			DEFINE BAR 3 OF Busca PROMPT ' \<Nombre ' 
DEFINE BAR 5 OF Busca PROMPT ' F.\<Vencimiento ' 
			ON SELECTION POPUP busca =find_data(BAR())
ACTIVATE POPUP Data_entry
RELEASE  POPUP Data_entry
procedure find_data
parameter mibar
wait window STR(mibar)

Luego en el RigThClick de tu objeto
Do mimenu

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas