Delphi 視窗抖動特效實作教學

效果說明

讓表單在螢幕上持續隨機抖動，類似視覺震動效果。透過儲存原始座標，在迴圈中以 Random 產生偏移量，最後還原位置。

核心程式碼

var
  BackLeft, BackTop, I, Number: Integer;
begin
  // 備份原始位置
  BackLeft := Left;
  BackTop := Top;

  // Number 可自訂抖動次數
  for I := 1 to Number do
  begin
    // 水平隨機偏移 ±10
    Left := (BackLeft - 10) + Random(20);
    // 垂直隨機偏移 ±10
    Top := (BackTop - 10) + Random(20);
    // 可加入 Sleep(10) 控制速度
    Sleep(10);
  end;

  // 還原位置
  Left := BackLeft;
  Top := BackTop;
end;

應用建議

• 可用於提醒使用者注意特定視窗（如錯誤訊息）。
• 建議放在獨立執行緒中執行，避免凍結主介面。
• Number 與 Sleep 時間可調整抖動劇烈程度與持續時間。