Ver Mensaje Individual
  #3  
Antiguo 18-08-2004
Avatar de acertij022
acertij022 acertij022 is offline
Miembro
 
Registrado: may 2003
Ubicación: Argentina-Bs. As.
Posts: 233
Reputación: 22
acertij022 Va por buen camino
Tenes que tener el formulario que abris KEYPREVIEW en TRUE
y colocar
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if Key=27 then Close;// es la tecla Esc
end;
Espero que te sirva
Responder Con Cita