请求给一段代码，十分感谢！！

Question

小弟想实现一效果。
点击Button1后。在Edit1显示...例如：
       正在登陆游戏服务器...
(2秒后)正在验证游戏帐号和密码...
（2秒后)登陆游戏成功,..这段代码这么写？？对这个非常感兴趣。谢谢。然后就是在打开软件的时候加载内存 就是打开软件后等待1,2秒的时间就打开了。。
这个这么写呢？谢谢。。

Answer 1

用sleep,然后对话框上拉一个edit,在里面倒记时;

Answer 2

我觉得你这样做是假现像，应该根据你的button1事件中的判定来决定显示什么．

Answer 3

我才开始学DEL，对代码和格式不是很了解。
但我太希望能掌握这个效果了。请你们给一段完整的代码给我，谢谢

Answer 4

在button1click里面Begin
  Edit1.text:='正在登陆游戏服务器... ';
  sleep(2000);
  Edit1.text:='正在验证游戏帐号和密码... ';
  sleep(2000);
  Edit1.text:='登陆游戏成功,.. ';
End;至于第二个问题，虽然不难，但是说起来不直观。我简单说一下，就看楼主能不能理解了。
1、在你现在的工程里面再添加一个窗口。窗口里面就用一个Lable，显示'正在加载内存...'。
2、在这个窗口里面加一个Timer，在Timer里面sleep(2000)，然后就调用close关闭这个窗口。
3、这个窗口关闭之后，你主要的窗口就应该直接出来了至于第二个问题，我没有试过，只是一个最初的想法，你可以试试看行不行

Answer 5

unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;type
  TForm1 = class(TForm)
    Button1: TButton;
    Label1: TLabel;
    Timer1: TTimer;
    Timer2: TTimer;
    procedure Button1Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure Timer2Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
begin
timer1.Enabled := true;
timer1.Interval:=2000;
timer2.Enabled := true;
timer2.Interval :=4000;
end;procedure TForm1.Timer1Timer(Sender: TObject);
begin
label1.Caption :='正在验证服务器账号密码';
timer1.Enabled := false;
end;procedure TForm1.Timer2Timer(Sender: TObject);
begin
label1.Caption:= '验证成功,登陆中...'  ;
timer2.Enabled  := false;end;end.

Answer 6

Begin
  Edit1.text:='正在登陆游戏服务器... ';
  sleep(2000);
  Edit1.text:='正在验证游戏帐号和密码... ';
  sleep(2000);
  Edit1.text:='登陆游戏成功,.. ';
End;
9楼的这代码这么直接弹到  登陆游戏成功拉？

Answer 7

http://www.dede123.com/timer.rar
搞了3个多小时。还是不成，我把代码发上来了，高手看下怎么回事？？？谢谢