如何震动图片

Question

控件是使用Image
效果如QQ的头像在收到信息时就震动提示

Answer 1

随机的在一定范围里持续不断的改变img控件位置一定时间即可.

Answer 2

我使用
image1.top:=0;
sleep(200);
image1.top:=18;
sleep(200);
image1.top:=0;
sleep(200);
image1.top:=18;
sleep(200);
image1.top:=0;
//我的想法是跟你们一样的，但上面的代码
//测试过没效果呢

Answer 3

用Timer控件控制时间。procedure TForm1.Timer1Timer(Sender: TObject);
begin
  if image1.top=72 then
    image1.top:=82
  else
    image1.top:=72;
end;

Answer 4

image1.top:=0; 
sleep(200); 
application.processMessages;
image1.top:=18; 
sleep(200); 
application.processMessages;
image1.top:=0; 
sleep(200); 
application.processMessages;
image1.top:=18; 
sleep(200); 
application.processMessages;
image1.top:=0;  
//就缺了application.processMessages;

Answer 5

楼上的建议也很容易实现了还有什么办法可以实现同样效果呢但最好不要使用MouseDown事件记录X,Y的位置，然后判断是否为控件的上方好像处理消息还可以使用
A:重载procedure WndProc(),
B:Application.processMessages;
谢过！