[ エクセル操作フォームEx ] [ ちらつき防止 ]

Delphi Programming / Object Pascal

[掲載 2009年05月24日] [更新 2013年12月12日]　エクセル操作フォームEx

エクセル操作フォームEx 参考コード類ちらつき防止
動作確認等	Windows 7 U64(SP1) + Delphi XE Pro + Excel 2010

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

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

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

ちらつきの原因というか、元は、何を描画するかにもよるよようです。Windows 7 + Excel 2010 では、従来よりもちらつきが少なくなっている気がします。エクセル自身、あるいは、Windows 内部でも描画関係の改善がなされているようです。

リスト1
エクセル操作フォームExのハンドルで LockWindowUpdate を使用

procedure TplExcelFormEx2.Button1Click(Sender: TObject);
begin
  LockWindowUpdate(Handle);

  //実行コード

  LockWindowUpdate(0);
end;

リスト2
エクセルを表示しているパネルのハンドルで LockWindowUpdate を使用

procedure TplExcelFormEx2.Button4Click(Sender: TObject);
begin
  LockWindowUpdate(PanelLeft.Handle);

  //実行コード

  LockWindowUpdate(0);
end;

リスト3
エクセルVBAのプロパティ ScreenUpdating を使用

procedure TplExcelFormEx2.Button2Click(Sender: TObject);
begin
  xlfExcelApp.ScreenUpdating[0] := False;

  //実行コード

  xlfExcelApp.ScreenUpdating[0] := True;
end;