如何用鼠标左键控制这个对话框里的蓝色进度条，现在出了点问题 [已关闭]

Question

begin = 0;
f[t_] := Graphics[{Red, Rectangle[{0, 0}, {0.2, 1}], Blue, 
   Rectangle[{0, 0}, {0.2, SawtoothWave[t/2]}]}, 
  ImageSize -> {{0, 150}, {0, 170}}]
nb = CreateDialog[
  Dynamic@If[CurrentValue[{"MouseButtonTest", 1}], 
    begin = Clock[{0, 15}]; Dynamic[f[begin]], f[begin]], 
  WindowSize -> All]

（*我想在对话框里按鼠标左键，按住不放时，随着时间变化，蓝色部分会先增加后变为0再增加，为此我使用了锯齿波，但是这个变化貌似只能按住对话框顶部才有变化，这个怎么解决呢*)

Comments

哦，我好像会了，调整下对话框大小即可