Delphi中打開Word時，如何讓Word窗口跑到最前面？

本文转载自 zhoufs 查看原文 2012-05-03 10 delphi/ 窗口/ 如何/ word

這是一段使用 Wordapplication 組件調用Word的代碼，可正常運用，但打開Word時，Word窗口總是在這個Delphi程序的后面。
有沒有簡單方法解決這個問題？

-----------------------------------------------------------------------------------------
procedure TForm1.Button4Click(Sender: TObject);
var
  FileName, ConfirmConversions, ReadOnly, AddToRecentFiles,
    PasswordDocument, PasswordTemplate, Revert,
    WritePasswordDocument, WritePasswordTemplate, Format: OleVariant;
begin
  try
    Wordapplication1.Disconnect;
    Wordapplication1.Connect;
  except
    MessageDlg('無法啟動Word，請檢查電腦中是否安裝Office !', mtError, [mbOk], 0);
    Abort;
  end;
  Wordapplication1.Visible := True;
  FileName := 'F:\aa.doc';
  ConfirmConversions := False;
  ReadOnly := False;
  AddToRecentFiles := False;
  PasswordDocument := '';
  PasswordTemplate := '';
  Revert := True;
  WritePasswordDocument := '';
  WritePasswordTemplate := '';
  Format := wdOpenFormatDocument;
  WordApplication1.Documents.Open(FileName, ConfirmConversions,
    ReadOnly, AddToRecentFiles, PasswordDocument, PasswordTemplate,
    Revert, WritePasswordDocument, WritePasswordTemplate, Format);
end;

6 个解决方案

#1

先取WORD句柄，然后用SetWindowPos函數

#2

有沒有更簡單的方法？

#3

我估計是您的那個程序form設置成放在最前面顯示了。或者是用了showModal

#4

form1.BringToFront;

#5

引用 1 樓的回復:

先取WORD句柄，然后用SetWindowPos函數

暫時只能用這個辦法了。（已經搞定）。給分！

#6

#3 樓、#4 樓，雖然回答不正確，但也給1分，以資鼓勵。

注意！

本站转载的文章为个人学习借鉴使用，本站对版权不负任何法律责任。如果侵犯了您的隐私权益，请联系我们删除。

delphi中fsmdiform總是顯示在最前面請問怎樣讓一個窗口總是顯示在屏幕的最前面？讓MessageBox在最前面顯示 csv文件中每個字段最前面的零在用excel打開后不顯示的問題使用EnumWindows找到窗口句柄后再用SetForegroundWindow切換窗口到最前面，有時成功有時不成功如何用LS使提示信息窗口在所有窗口的最前面？（急，在線等答案） [置頂] 寫在最前面的... 如何讓窗體全屏，總在最前面如何設置當某一View顯示在最前面時其他可見控件不可觸發？【delphi】TComboBox 輸入文本並觸發change事件后光標總會移動到最前面的問題