Clipper On Line • Ver Tópico - Botoes OK e CANCEL - associados a ENTER e ESC

Botoes OK e CANCEL - associados a ENTER e ESC

Discussão sobre a biblioteca Fivewin - O Clipper para Windows.

Moderador: Moderadores

 

Botoes OK e CANCEL - associados a ENTER e ESC

Mensagempor Mário Isa » 30 Set 2008 09:05

Nesta função:
//----------------------------------------------------------------//

function MsgSelect( aItems, cValue, cTitle )

local oDlg

DEFAULT cTitle := "Selecionar"

DEFINE DIALOG oDlg FROM 5,10 TO 24, 75 TITLE cTitle

DEFINE FONT oFont NAME "Courier New" SIZE 0, -13

@ 1, 2 LISTBOX cValue ITEMS aItems SIZE 185, 95 OF oDlg

@ 10, 6 BUTTON "&OK" OF oDlg SIZE 40, 12 ;
ACTION oDlg:End() DEFAULT

@ 10, 14 BUTTON "&Cancel" OF oDlg SIZE 40, 12 ;
ACTION ( cValue := nil, oDlg:End() )

ACTIVATE DIALOG oDlg CENTERED

if empty(cvalue)
cvalue := '@#$%@#$%@#%@$%@#$%@'
end

return cValue


Como fazer para que, ao pressionar a tecla ESC ganhe o mesmo efeito do o botão Cancel?

Mário
Avatar de usuário

Mário Isa
Usuário Nível 4

Usuário Nível 4
 
Mensagens: 902
Data de registro: 07 Jul 2004 13:54
Cidade/Estado: Ilha Solteira-sp
Curtiu: 5 vezes
Mens.Curtidas: 8 vezes

Re: Botoes OK e CANCEL - associados a ENTER e ESC

Mensagempor gvc » 30 Set 2008 09:24

@ 10, 14 BUTTON "&Cancel" OF oDlg SIZE 40, 12 ACTION ( cValue := nil, oDlg:End() ) cancel
"TRS-80/Sincler/Apple/PC - Clipper Winter 85, tlink 1.0 [pc 10 MHz - 640K] {NEZ 8000 2Kb RAM}"
{POG - Programação Orientada a Gambiarra}
Avatar de usuário

gvc
Colaborador

Colaborador
 
Mensagens: 1269
Data de registro: 23 Ago 2005 10:57
Curtiu: 0 vez
Mens.Curtidas: 0 vez




Retornar para FiveWin

Quem está online

Usuários vendo este fórum: Nenhum usuário registrado online e 10 visitantes


Ola Amigo, espero que meu site e forum tem lhe beneficiado, com exemplos e dicas de programacao.
Entao divulgue o link da Doacao abaixo para seus amigos e redes sociais ou faça uma doacao para o site forum...
MUITO OBRIGADO PELA SUA DOACAO!
Faça uma doação para o forum
cron
v
Olá visitante, seja bem-vindo ao Fórum Clipper On Line!
Efetue o seu login ou faça o seu Registro