请高手们帮忙： 用delphi写了主窗口，里面有子窗口和控件，同时点击控件还会弹出其他窗口，我的问题是：为程序设置一个热键，比如ctrl，使得，当我按下ctrl时，不论当前处于那个窗口，都让所有的窗口最小化。我现在知道的方法是为每个onkeydown加上相应代码，可是窗口控件太多了，好几百个，怎么办呢？急急急！！！

引言: 请高手们帮忙： 用delphi写了主窗口，里面有子窗口和控件，同时点击控件还会弹出其他窗口，我的问题是：为程序设置一个热键，比如ctrl，使得，当我按下ctrl时，不论当前处于那个窗口，都让所有的窗口最小化。我现在知道的方法是为每个onkeydown加上相应代码，可是窗口控件太多了，好几百个，怎么办呢？急急急！！！

用微軟的作業系統的話 用鍵盤上的 視窗符號 M 全部都會縮小了

不是的，我市要自定义热键，就是自己定应键盘响应。

1.開新專案 2. Form1.FormStyle = fsMDIForm 3. New 新 Form2, Form3; FromStyle 都設為 fsMDIChild 4. 拉一個 ActionList1 於 Form1 上 5. Double Click ActionList1 元件, 新增 Action1, Action2 6. Action1.ShortCut 設為 Ctrl+A, Action1.ShortCut 設為 Ctrl+B 加下列兩事件 分別給 Action1, Action2

procedure TForm1.Action1Execute(Sender: TObject);
var
  i: Integer;
begin
  for i:=0 to Application.ComponentCount-1 do
  begin
    if (Application.Components[i] is TForm) and (TForm(Application.Components[i]).FormStyle=fsMDIChild) then
    begin
      if TForm(Application.Components[i]).Visible then
        TForm(Application.Components[i]).WindowState := wsMinimized;
    end;
  end;
end;    procedure TForm1.Action2Execute(Sender: TObject);
var
  i: Integer;
begin
  for i:=0 to Application.ComponentCount-1 do
  begin
    if (Application.Components[i] is TForm) and (TForm(Application.Components[i]).FormStyle=fsMDIChild) then
    begin
      if TForm(Application.Components[i]).Visible then
        TForm(Application.Components[i]).WindowState := wsNormal;
    end;
  end;
end;

現在你按 Ctrl A 所有子視窗都縮小, Ctrl B 所有子視窗還原