Можно поступить и иначе - заставить форму беспрерывно «ёрзать» по экрану. Сделать это проще простого. На «свежей» форме установите таймер, задайте Interval200-400 мс и напишите код для обработки запуска таймера:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls;
type
TForm1 = class(TForm)
Timer1: TTimer;
procedure Timer1Timer(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1; rele: boolean= true;
implementation
{$R *.DFM}
//ПЕРЕМЕЩЕНИЕ ФОРМЫ
procedure TForm1.Timer1Timer(Sender: TObject); begin
//переключить направление перемещения формы: rele:= notrele;
if rele then begin
Form1.Left:= Form1.Left+ 5;
Form1.Top:= Form1.Top+ 5 end else begin
Form1.Left:= Form1.Left- 5;
Form1.Top:= Form1.Top- 5 end
end;
После появления на экране форма будет дрожать как осиновый лист. Для себя предусмотрим возможность её успокоения:
//ВЫКЛЮЧИТЬ ТАЙМЕР
procedureTForm1.FormDblClick(Sender: TObject); begin
Timer1.Enabled:= False end;
end.
При желании можете заставить форму перемещаться по замысловатой траектории - и пользователь неминуемо впадёт в отчаяние.