类似电视上手机摇奖的小程序！

Question

点击开始从数据库里取出手机号然后在一个特定的栏里面滚动，点击结束后停止，得到的手机号码就是最终中奖的手机号码。谢谢了！

Answer 1

 id   No
  1   13966554433
  2   13823374637
  ...procedure TForm1.Timer1Timer(Sender: TObject);
var
  i: integer;
begin
  ...
  ADOQuery1.SQL.Add('SELECT * FROM tablename');
  ADOQuery1.Open;
  i := Random(ADOQuery1.RecordCount);
  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Add('SELECT No FROM tablename WHERE id=' + IntToStr(i));
  ADOQuery1.Open;
  Label1.Caption := '';
  Label1.Caption := ADOQuery1.Fields[0].AsString;
end;

Answer 2

Timer的interval设置的短点效果应该还可以

Answer 3

先把必要数据读到内存再循环不要循环读数据库
显示号码的窗体.DoubleBuffered := True;

Answer 4

试着呢，还有个问题，就是想把界面做成手机的样子，如何让Form只显示已经做好并镂空的手机图片的样子，分不够再加了。前面的问题算已经结贴了，一会儿一块结了就行了！

Answer 5

用PHOTOSHOP搞个图片贴到FORM上就可以了啊
FORM 的属性 borderstyle=bsnone,transparentcolor=true
image的属性 transparent=true

Answer 6

ID号对应手机图片的名称就可以了，实现的方法是，id号是什么就把图片的名称改成什么就可以了。

Answer 7

用timer控件从数据库中随即的读数据--------我的理解

Answer 8

就是要把界面做成手机的样子真晕了！怎么样才能让Form透明而上面的控件不透明啊？