Es menú emergente que se abre ?


Es el menú emergente que se abre ?
el Uso de la WM_MENUSELECT mensaje de la forma no trabajo para comprobar si
en la ventana emergente que se abre. Simplemente porque el padre de la ventana emergente no es la
forma (compruebe el menú emergente método de TPopupMenu). Una solución es utilizar
la llamada a la api de sí mismo :
tipo
& nbsp & nbsp TForm1 = class(TForm)
& nbsp & nbsp ...
& nbsp & nbsp procedimiento FormMouseDown(Sender: TObject Botón: TMouseButton
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp Shift: TShiftState X, Y: Integer)
privada
& nbsp & nbsp IsMenuOpen: Boolean
& nbsp & nbsp procedimiento WMMENUSELECT(var message: TWMMENUSELECT) mensaje WM_MENUSELECT
procedure TForm1.WMMENUSELECT(var message: TWMMENUSELECT)
begin
& nbsp & nbsp heredado
& nbsp & nbsp IsMenuOpen := no ((mensaje.MenuFlag y $FFFF > 0) y
& nbsp & nbsp & nbsp & nbsp (mensaje.Menú = 0))
fin
procedure TForm1.FormMouseDown(Sender: TObject Botón: TMouseButton
& nbsp & nbsp Shift: TShiftState X, Y: Integer)
begin
& nbsp & nbsp si el Botón = mbRight, a continuación,
& nbsp & nbsp & nbsp & nbsp con ClientToScreen(Punto(X, Y))
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp TrackPopupMenuEx(PopupMenu1.Manejar, TPM_LEFTALIGN, X, Y,
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp Auto.Manejar, nil)
fin









Es menu emergente que se abre ?


Es menu emergente que se abre ? : Multi-millones de consejos para hacer su vida mas facil.


Es el menu emergente que se abre ?
el Uso de la WM_MENUSELECT mensaje de la forma no trabajo para comprobar si
en la ventana emergente que se abre. Simplemente porque el padre de la ventana emergente no es la
forma (compruebe el menu emergente metodo de TPopupMenu). Una solucion es utilizar
la llamada a la api de si mismo :
tipo
& nbsp & nbsp TForm1 = class(TForm)
& nbsp & nbsp ...
& nbsp & nbsp procedimiento FormMouseDown(Sender: TObject Boton: TMouseButton
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp Shift: TShiftState X, Y: Integer)
privada
& nbsp & nbsp IsMenuOpen: Boolean
& nbsp & nbsp procedimiento WMMENUSELECT(var message: TWMMENUSELECT) mensaje WM_MENUSELECT
procedure TForm1.WMMENUSELECT(var message: TWMMENUSELECT)
begin
& nbsp & nbsp heredado
& nbsp & nbsp IsMenuOpen := no ((mensaje.MenuFlag y $FFFF > 0) y
& nbsp & nbsp & nbsp & nbsp (mensaje.Menu = 0))
fin
procedure TForm1.FormMouseDown(Sender: TObject Boton: TMouseButton
& nbsp & nbsp Shift: TShiftState X, Y: Integer)
begin
& nbsp & nbsp si el Boton = mbRight, a continuacion,
& nbsp & nbsp & nbsp & nbsp con ClientToScreen(Punto(X, Y))
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp TrackPopupMenuEx(PopupMenu1.Manejar, TPM_LEFTALIGN, X, Y,
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp Auto.Manejar, nil)
fin


Es menú emergente que se abre ?

Es menú emergente que se abre ? : Multi-millones de consejos para hacer su vida más fácil.
Recommander aux amis
  • gplus
  • pinterest

Comentario

Dejar un comentario

Clasificación