[ ワード操作フォームEx ] [ ちらつき防止 ]

Delphi Programming / Object Pascal

[掲載 2009年05月12日] [更新 2009年05月12日]　ワード操作フォームEx

ワード操作フォームEx 参考コード類ちらつき防止
動作確認等	-

画面更新時のちらつき防止方法

画面更新時のちらつき防止方法

ワードへの文字列挿入や描画、マクロの実行の際にはほとんどの場合、実行中に画面がちらつきます。これを防止するには以下のリストのように画面更新の停止、開始コードを描画コードの前後に入れてみて下さい。あるいは、これらのコードを組み合わせると効果があることがあります。

より新しいバージョンのワードは描画関係の改善があったようです。以下のような処理コードを追加すると、逆にチラツクこともあります。

リスト1　

//=============================================================================
//  ワードはPenleLeftというTPanel上に表示している
//  このPanelの更新を停止する方法
//=============================================================================
procedure TplWordFormEx2.Button1Click(Sender: TObject);
begin
  LockWindowUpdate(PanelLeft.Handle);

  //操作コード
  TestDraw;

  LockWindowUpdate(0);
end;

リスト2　

//=============================================================================
//  ワードのハンドルwdfWordHandleを使用
//=============================================================================
procedure TplWordFormEx2.Button2Click(Sender: TObject);
begin
    LockWindowUpdate(wdfWordHandle);

    //操作コード
    TestDraw;

    LockWindowUpdate(0);
end;

リスト3　

//=============================================================================
//  ScreenRefreshを使用
//  ScreenRefreshは画面を更新してから停止
//=============================================================================
procedure TplWordFormEx2.Button3Click(Sender: TObject);
begin
  wdfWordApp.ScreenRefresh;

  //操作コード
  TestDraw;

  wdfWordApp.ScreenUpdating := True;
end;

リスト4　

//=============================================================================
//  ScreenUpdating := Falseはただちに画面更新を停止する
//=============================================================================
procedure TplWordFormEx2.Button4Click(Sender: TObject);
begin
  wdfWordApp.ScreenUpdating := False;

  //操作コード
  TestDraw;

  wdfWordApp.ScreenUpdating := True;
end;