Lairton, Fiz o teste e funcionou! Muito obrigado pela ajuda.
Abra�os,
Jos� Carlos.
"Lairton N. de Almeida Jr." <[EMAIL PROTECTED]>@virtualand.net em
04/04/2003 10:38:43
Favor responder para [EMAIL PROTECTED]
Enviado Por: [EMAIL PROTECTED]
Para: <[EMAIL PROTECTED]>
cc:
Assunto: Re: [sqlwin] named menu
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.
(See attached file: EditMenuContextoPersonalizado.zip)
EditMenuContextoPersonalizado.zip
Description: Zip archive
