Cerrar form al presionar Esc (SOLUCIONADO)
Gracias a todos: para los que tienen el mismo problema esta es la "solucion".
ponerlo en el evento onkeypress poner la propiedad keypreview a true de cada form que se cerrara al precionar la tecla Esc.
Codigo el correcto es:
procedure TF_Usuarios.FormKeyPress(Sender: TObject; var Key: Char);
begin
if key = #27 then
begin
close;
end
end;
Hasta la proxima!
|