Abrir um form usando a tecla ESC...

Question

Algu�m saberia me informar o c�digo de como abrir um formul�rio usando apenas a tecla �ESC� quando o sistema estiver rodando?
Tentei assim.

IF Key = 27 Then
    Application.CreateForm(TFrmLogin,FrmLogin);
    FrmLogin.ShowModal;

S� que n�o funcionou.
Erivan marinho.

Raserafim · Answer

como vc n�o disse onde e qual � o erro, vou detalhar cada parte mesmo parecendo ser �bviu:
vc dever� utilizar o seguinte c�digo no evento OnKeyDowm:

IF Key = 27 Then 
begin 
  Application.CreateForm(TFrmLogin,FrmLogin); 
  FrmLogin.ShowModal;
end;

o primeiro erro do seu c�digo � que faltou o begin e o end. sem estes o form s� seria criado se satisfizesse a condi��o, mas o form sempre iria executar a linha que pede para exibir o form.
A linha Application.CreateForm(TFrmLogin,FrmLogin) s� � necess�ria caso vc tenha explicitamente comentado a linha que faz o delphi criar o form automaticamente, ent�o vc usaria o begin e o end apenas se quisesse.

Michael · Answer

Ol� amigo!Bom, vc n�o especificou em qual evento chamou o c�digo. Se foi em OnKeyPress, ent�o deve preceder o c�digo da tecla por #.[code:1:f05d589ab3]IF Key = 27 Then begin   Application.CreateForm(TFrmLogin,FrmLogin);   FrmLogin.ShowModal; end;[/code:1:f05d589ab3][]�s...

Peninha · Answer

Amigos, segui as instru��es que me passaram, pois n�o obtive nenhum sucesso.
Coloquei os c�digos tanto no evento OnKeyDwon como no OnkeyPress do form principal chamando o form Login mas n�o acontece nada e nem me retorna nenhum erro. mais alguma susgest�o?
Erivan Marinho.

Fred · Answer

Olha eu fiz um teste rapido no OnKeyPress e funcionou certinho:

if key = #27 then
   showmessage(�Esc�);

experimente mudar a propriedade KeyPreview do form Principal para True! (o meu funcionou com false e true)

Peninha · Answer

Amigo, ser� que daria para vc me explicar melhor? pois n�o entendi o porque de ShowMessage(�Esc�);Erivan Marinho....

Marco Salles · Answer

[quote:480bcdd028]Olha eu fiz um teste rapido no OnKeyPress e funcionou certinho: C�digo: if key = #27 then    showmessage(�Esc�);            [color=red:480bcdd028]experimente mudar a propriedade KeyPreview do form Principal para True! (o meu funcionou com false e true[/color:480bcdd028])[/quote:480bcdd028][quote:480bcdd028]Amigo, ser� que daria para vc me explicar melhor? pois n�o entendi o porque de ShowMessage(�Esc�); Erivan Marinho.[/quote:480bcdd028]Acredito que ele quis dizer que a mensagem foi processada , com o , Presionando a Tecla Key No Form principal.. Logo , tudo que Tiver Dentro Do <Begin End> Consequentemente ser� Processada TambemEntao  , no lugar da Intru�ao Showmessage(�Esc�) , Experimente colocar aquilo que voce deseja fazer , que no caso e Criar e abrir um novo formul�rio....[code:1:480bcdd028]procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);begin// showmessage(�Esc�);Application.CreateForm(TFrmLogin,FrmLogin);  FrmLogin.ShowModal;  Freeandnil(FrmLogin);end;[/code:1:480bcdd028] :idea:  :idea: [color=red:480bcdd028] N�o esque�a de Options  :arrow: Projects :arrow: Avalaible Forms Etc.....[/color:480bcdd028]...

F�rum Abrir um form usando a tecla ESC... #274092