Oi Jos� Carlos Estou enviando em anexo um exemplo feito no TD 2.1 Caso seu TD n�o seja 2.1 ou superior ..... talvez vc tenha dificuldades em execut�-lo
Veja a defini��o do "MeuMenuEditar"
Global Declarations
Popup Menus
Named Menus
Menu: MeuMenuEditar
Title: MeuEditar
Enabled when:
Status Text:
Menu Item: Desfazer
Menu Separator
Menu Item: Recortar
Menu Item: Copiar
Menu Item: Colar
Menu Separator
Menu Item: Localizar
Menu Item: Localizar e Trocar
No Contents do Form coloquei um Multiline Text com o seguinte c�digo:
!!CB!! 114
Multiline Field: ml1
Message Actions
On WM_RightClick
Call SalTrackPopupMenu( hWndForm,'MeuMenuEditar', TPM_CursorX |
TPM_CursorY | TPM_LeftAlign, 0 ,0 )
E nas constantes declarei o evento WM_RightClick
!!CB!! 222
Number: WM_RightClick = 0x0205
Veja a� se funciona como vc deseja.
um abra�o
Lairton.
EditMenuContextoPersonalizado.zip
Description: Zip compressed data
