Cita:
Empezado por anonymous
... el unico error es que al apretar ESC se cierra el programa
|
Tienes razón, no me di cuenta al sacar distintas versiones de lo mismo. La solución es bien fácil:
Código Delphi
[-]
procedure TForm1.FullScreenKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
const
VK_ESCAPE = $1B;
begin
if Key = VK_ESCAPE then (Sender as TForm).Close;
end;
Saludos.