Fechar Form com ESC
Alguém sabe como fechar um form com a tecla ESC?
obrigado!
obrigado!
Fernandocneto
Curtidas 0
Respostas
Debora
16/04/2003
No propriedade KeyPreview do form coloque true.
No evento KeyPress do form digite o seguinte:
if key = chr(27) then
FrmCliente.Close;
chr(27) = códico ASCII da tecla ESC.
:wink:
No evento KeyPress do form digite o seguinte:
if key = chr(27) then
FrmCliente.Close;
chr(27) = códico ASCII da tecla ESC.
:wink:
GOSTEI 0
Aroldo Zanela
16/04/2003
Colega,
No evento OnKeyPress:
Com BitBtn:
Mude a propriedade Cancel para true e no evento OnClick:
No evento OnKeyPress:
if key = chr(27) then Close;
Com BitBtn:
Mude a propriedade Cancel para true e no evento OnClick:
Close;
GOSTEI 0
Ma_cunhado
16/04/2003
aêêêêêêê Maluco!!!
vc tambem pode ir no OnkeyDown e digitar assim;
If key=vk_escape then
close;
Pra ver os valores virtuais da teclas va na secao uses do seu form
(ou digite WINDOWS en qualquer lugar da sua unit) click na palavra Windows com a tecla control pressionada que ele abre a unit Windows.pas daí vc procura em Constantes vk_algumacoisa.
Thau Mermão...
vc tambem pode ir no OnkeyDown e digitar assim;
If key=vk_escape then
close;
Pra ver os valores virtuais da teclas va na secao uses do seu form
(ou digite WINDOWS en qualquer lugar da sua unit) click na palavra Windows com a tecla control pressionada que ele abre a unit Windows.pas daí vc procura em Constantes vk_algumacoisa.
Thau Mermão...
GOSTEI 0
Eniorm
16/04/2003
Cara visie:
www.apocalipica.hpg.com.br/hackz/delphi/
lá vc encontra vários componenes para Delphi
inclusive um txt com um procedimento para acionar
o uso das teclas, tipo: esc fecha, enter como tab etc.
www.apocalipica.hpg.com.br/hackz/delphi/
lá vc encontra vários componenes para Delphi
inclusive um txt com um procedimento para acionar
o uso das teclas, tipo: esc fecha, enter como tab etc.
GOSTEI 0