在Form置顶的前提下，TSaveDialog.execute(handle)不能超越置顶

Question

procedure TForm1.Button2Click(Sender: TObject);
begin
  SetWindowPos(form1.handle,HWND_NOTOPMost,0,0,0,0,SWP_NOMOVE or  SWP_NOSIZE);
  SetWindowPos(SaveDialog1.Handle,HWND_TOPMost,0,0,0,0,0);
  if SaveDialog1.Execute then
  begin
    ......
  end;
  SetWindowPos(self.Handle, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE or  SWP_NOSIZE);
end;
打开SaveDialog1按钮事件代码。即可。

Answer 1

感谢大神lyhoo163，成功了！我这里总结一下，经过反复测试，Delphi的置顶默认只能对主窗口起作用，不能对非主窗口起作用，当我有Form1和Form2存在时候，Form1为主窗口可以置顶，Form2不行，于是，我对Form2置顶加了代码Application.NormalizeTopMosts;  //如果不加入这一句，非主窗口仍然不能置顶
SetWindowPos(self.Handle, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE or  SWP_NOSIZE);  但是，保存按钮SaveDialog弹出来的时候却在Form2后面，这太奇葩了，经过大神指点，终于解决了，谢谢！