如何实现ESC键多次操作(0分)

我想只用ESC键实现多种操作，比如按按一下ESC收起菜单，再按一下关闭当前窗口，
回到主窗口，再按退出主窗口。如何实现呢？
盼各位老大指点一下

"按一下ESC收起菜单"这个本来就不用自己写。
关闭某个窗口你在相应的Form中编写 OnKeyDown事件处理就完了。
记得设 Form的 KeyPreview:=True; 这样不管当前焦点在哪，Form都可接收到按键。

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
if Key = VK_ESCAPE then
Form1.Close;
end;

其他窗口类似

to leejames
谢谢！

up