blazeiker
12-Feb-2021, 07:59 AM
Olá,
Gostaria de exibir uma mensagem (Info_Box ou Stop_Box) no Exiting() de um Form, mas quando faço isso o cursor do mouse fica como "seleção" (se mover o mouse ele vai selecionando o valor) ao sair do Form com o click esquerdo do mouse.
Quando removo a mensagem, o Exiting não deixa cursor no modo de "seleção" e funciona normalmente. Também funciona normal ao sair com um TAB.
// Mesmo comportamento com a mensagem antes ou depois do Forward Get
Procedure Exiting Integer iObject Returns Integer
Integer isCanceled
Forward Get msg_Exiting iObject to isCanceled
Send Info_Box "O cursor fica como 'seleção'" ":("
If ( isCanceled ) ;
Procedure_Return isCanceled
// Send Info_Box "O cursor fica como 'seleção' aqui também" ":("
Procedure_Return isCanceled
End_Procedure
Do que preciso para ele não ter esse comportamento?
14320
Gostaria de exibir uma mensagem (Info_Box ou Stop_Box) no Exiting() de um Form, mas quando faço isso o cursor do mouse fica como "seleção" (se mover o mouse ele vai selecionando o valor) ao sair do Form com o click esquerdo do mouse.
Quando removo a mensagem, o Exiting não deixa cursor no modo de "seleção" e funciona normalmente. Também funciona normal ao sair com um TAB.
// Mesmo comportamento com a mensagem antes ou depois do Forward Get
Procedure Exiting Integer iObject Returns Integer
Integer isCanceled
Forward Get msg_Exiting iObject to isCanceled
Send Info_Box "O cursor fica como 'seleção'" ":("
If ( isCanceled ) ;
Procedure_Return isCanceled
// Send Info_Box "O cursor fica como 'seleção' aqui também" ":("
Procedure_Return isCanceled
End_Procedure
Do que preciso para ele não ter esse comportamento?
14320