Mega Code Archive
How to shake a form
<![CDATA[
Title: How to shake a form?
Question: How to make my application ring?
Answer:
var
iipt:Integer;
procedure Tform1.FormCreate;
begin
iipt:=Form1.Left;
end;
procedure TForm1.Button2Click(Sender: TObject);
var
so:Integer;
begin
so:=0;
repeat
if Form1.Left=iipt-10 then
begin
so:=so+1;
repeat
Form1.Left:=Form1.Left+1;
until Form1.Left=iipt
end
else
repeat
Form1.Left:=Form1.Left-1;
until Form1.Left=iipt-10;
until so=2;
end;
//If this code does NOt work contact me at tsoft@home.ro
]]>