Ver Mensaje Individual
  #2  
Antiguo 07-08-2011
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Reputación: 36
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Hola cheche358.

Quitá la verificación de los eventos OnKeyDown del TEdit y de cualquier otro control que lo tuviera asignado y hacé lo siguiente:
Código Delphi [-]
...
procedure TForm1.FormShow(Sender: TObject);
begin
  KeyPreview:= True;
end;
...
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
 if Key = VK_ESCAPE then
    Close;
end;
...
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  // Tu código
end;
Nota: La propiedad KeyPreview del form la podes ajustar en tiempo de diseño.

Un saludo.
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....
Responder Con Cita