说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

没分了,但还是要提问:为什么我的sleep(2000)会出错。

编辑:说三道四文库 发布时间:2018-02-24 06:13
HTML文档下载 WORD文档下载 PDF文档下载
Application.Initialize;
  blinkform:=TblinkForm.Create(Application);
  blinkform.Show;
  blinkform.Update;
  sleep(2000);
  Application.CreateForm(Tmainform, mainform);
  blinkform.Hide;
  blinkform.Free;
  Application.Run;
sleep(2000)编译通不过
我看到好多大哥都这样用的。
让闪现form停几秒。
uses SysUtils
这是在工程文件中的呀!
注意:

program Project1;

uses
  Forms,
  sysutils,  //这个
  Controls,  //这个



Application.Initialize;
  blinkform:=TblinkForm.Create(Application);
  blinkform.Show;
  blinkform.Update;//这个先不要,可以不要吗?
  sleep(2000);     //这个放到binkform窗体里
  Application.CreateForm(Tmainform, mainform);
  blinkform.Hide;
  blinkform.Free;
  Application.Run;


在适时
我怎么看你的这个程序好象有问题,是登陆对话框吧
delphi5的sleep是在WINDOWS中定义的所以要在USES 中加入WINDOWS
program Project2;

uses
  Forms,windows,
  Unit1 in 'Unit1.pas' {Form1},
  Unit2 in 'Unit2.pas' {Form2};

{$R *.res}

begin
  Application.Initialize;
  Form2 := TForm2.Create(Application);
  Form2.Show;
  Form2.Update;  
  Sleep(2000); 
  Application.CreateForm(TForm1, Form1);
  Form2.Hide;
  Form2.Free;
  Application.Run;
end.
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘