Saindo com a tecla ESC

Question

Pessoal como fa�o pra ao clicar a tecla ESC ela pergunte ao usuario �DESEJA SAIR� caso sim ele feche a Tela!obrigado!...

Nilodp · Answer

e com a tecla shift + tab tbobrigado...

Cd.beco_df · Answer

para vc fazer com que o esc funcione, coloque um botao como sair,
na propriedade cancel, para true, a propriedade modal result mrcancel

e no form para que venha a pergunta ao usuario. no evento on can Close

Tiago Rizzon · Answer

Oi!Para aparecer a pergunta ao tentar fechar o form principal...No evento onCloseQuerycanClose := Application.MessageBox(�Tem certeza que deseja sair?�, �Aten��o!�, MB_YESNO+MB_ICONQUESTION) = idYES;Para vc fechar utilizando a tecla ESC, n�o aconselho vc colocar em campo ou grade, eu, particularmente, prefiro utilizar uma a��o (componente TActionList com uma a��o) com o comando Close;A�, na propriedade SecondaryShortCuts da a��o, coloca assim:ESCSHIFT+TABFunciona, mas tem inumeros m�todos pr� fazer isso!Esse � o meu m�todo!Espero q isso ajude!Abra�o..;-)...

Nilodp · Answer

Nao consegui achar a propriedade
SecondaryShortCuts da a��o, coloca assim:
ESC
SHIT+TAB

eu fui no form principal em EVENTS
>>onCloseQuery
canClose := Application.MessageBox(�Tem certeza que deseja sair?�, �Aten��o!�, MB_YESNO+MB_ICONQUESTION) = idYES;

ai tudo bem! funfo! mais pra por os botoes pra executar esta acao nao consegui encontrar

Tiago Rizzon · Answer

Assim, como te disse tem muitas maneiras de sair do programa com a tecla ESC, aqui embaixo a minha maneira... N�o sei se � a melhor, mas funciona legal!

Na paleta de componentes Standard coloca o componente TActionList no teu formul�rio, d� dois cliques em cima do ActionList e adiciona uma nova a��o... Nas propriedades da a��o vai ter SecondaryShortCuts, coloca assim:

ESC
SHIFT+TAB

A� vc programa a a��o com o comando Close, tri simples!

Outra maneira � vc programar no evento OnKeyPress do formul�rio algo tipo:

If Key = #27 then Close;

Abra��o, espero q ajude!

;-)

Paullsoftware · Answer

para detectar o precionamento das teclas voc� faz:
Mude a propriedade [b:b9920fc3af]KeyPreview[/b:b9920fc3af] do Form para True

no evento OnKeyDown fa�a

  if ( Key = VK_ESCAPE ) or (Shift = [ssShift]) and (Key = VK_TAB) then
  Close;

para detectar o fechamento do form voc� pode usar como nilodp mensionou:
no evento [b:b9920fc3af]OnQueryClose[/b:b9920fc3af] do form

CanClose := False;
CanClose := Application.MessageBox(�Tem certeza que deseja sair?�, �Aten��o!�, MB_YESNO+MB_ICONQUESTION) = idYES;

espero ter ajudado :wink:

Nilodp · Answer

naum tava funcionando pq o form principala propriedade FORMSTYLE estava FsMDIformai mudei pra normal ai funfo=/ estranho!...

Andepunk · Answer

faz asssim no evento OnFormKeyPress    If Key=#27 Then  begin    Key:=0;        if (coloca a mensagem) Then      close;  end;...

F�rum Saindo com a tecla ESC #353011