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

yiny82 你好：  

  我不太意思(因為我看不太懂簡體)，但我試著回答看看
希望對你有用
procedure TForm1.Button1Click(Sender: TObject);
var
  AForm: TForm;
  AIndex : integer;
  AFormClass: String;
begin
  AForm := nil;
  for AIndex := 0 To Screen.FormCount - 1 do
  begin
    AForm := Screen.Forms[AIndex];
    AForm.WindowState := wsMinimized
  end;
end;     

Hi yiny82 你好: 拉一顆TActionList, 新增一個Action並設定新Action的ShortCut, 在其OnExecute事件寫相對代碼 我不是高手, 高手是正在銀幕前微笑的人.

------


我不是高手, 高手是正在銀幕前微笑的人.