Delphi中打開Word時,如何讓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分,以資鼓勵。

注意!

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



 
粤ICP备14056181号  © 2014-2021 ITdaan.com