procedure DblBufOn(WinCtrl: TWinControl); var I, J: Integer;//ループカウンタ begin try WinCtrl.DoubleBuffered := True; except end; J := WinCtrl.ControlCount; //子コントロール数を取得 If J = 0 Then Exit; //0だったら逝ってよし Dec(J); //ゼロベースIndexに合わせる for I := 0 to J do //ループと再帰でオンにしていく If WinCtrl.Controls[I] is TWinControl Then DblBufOn(WinCtrl.Controls[I] as TWinControl); end;