RUN时窗体一闪而过,找了很久都找不到解决方法,来这里麻烦大家了(50分)

  • 主题发起人 主题发起人 alva117
  • 开始时间 开始时间
A

alva117

Unregistered / Unconfirmed
GUEST, unregistred user!
我刚学delphi,前两天做了个书上的例子,今天打开delphi想运行一下,谁知道RUN时窗体一闪而过,找了很久都找不到解决方法,来这里麻烦大家了
 
你这说了等于没说.让大家猜密呀?
不过我今天心情不错,我来猜一猜:
你把列子改了一下,在列子的formcreate 里加上了 本该离开时调用的一句代码
close;
 
那应该是你关闭窗口了。你使用F8单步运行。
 
也许是书上错了?我从新华书店买的正版书都有错误,而且不止一处!不要管它,继续往下看。等你功力深了就可以辨别了。在此给你提一个小小的建议:刚刚开始学习,不可能把什么都搞懂搞明白的,遇到不懂的很正常,先把它扔到一边,继续往下看。这个问题对你以后来说有可能是一个很简单的问题。
 
楼上说听太对了,我也是这样入门的,看不懂的不管它继续往下看,不要放弃,看到后面的就会有个整体了解,前面不懂的自然也就懂了
 
是不是设置他status值为hind了
 
对不起,我确实不知道应该怎样表达,现在我尽可能说明白一点吧:我先是在delphi建了一个删除/添加数据的窗体,建立之后关闭.然后按书上的例子用SQL SERVER2000建立了数据源,并在控制面板的ODBC数据源那里把数据源指向了我建立的数据库里,并测试数据源成功.然后我打开我之前建的窗体,发现我一开delphi它自动开了一个form1的窗体,我当时没管他,接着我用open打开我上次建立的窗体,并运行之,发现我运行后是form1的窗体,而并不是我建立的那个,于是重新启动delphi,这次我关闭了form1, 按下关闭后,系统问我是否要保存到project1中,我按否.我再次打开我建立的窗体,运行之,发现并没有显示出来让我操作,只是闪了一下而已,又恢复到原来那样了.于是我close all.再打开我窗体,发现运行那里变灰了,即运行不了.(我是昨天才学的delphi,很多幼稚的问题,请大家不要见怪),我想说明一点就是,当我第一次建立好运行的时候是可以的,但关闭delphi之后重新打开就不行了,其他我做的例子也是一样.
希望大家能给点建议我,应该怎样解决,先道谢了
 
program Project1;

uses
Forms;

{$R *.res}

begin
Application.Initialize;
Application.Run;
end.这段代码我现在还不懂,但我按zywcd的方法按F8单步运行了,发现只在begin到end那里跳转,而且begin时窗体消失,到end的时候窗体出现,过程中并没有运行到窗体可以让我操作.
希望大家可以给我点建议
 
在打开前先用close all关闭所有的文件。用file 菜单里的open project...打开试试,别用open....另外问一下,你打开的是什么文件?是不是dpr文件??我刚刚试了一下,用open..打开pas文件就会出现你说的问题。打开dpr工程文件就不会出现问题了
 
那最简单的做法,你新建一个工程 ,什么代码都不写,运行试试看。
 
回复xoyo_wu:
我close all之后用open project打开project1运行成功.我之前用open打开的正是.pas文件,不是dpr文件
 
回复zywcd:
我在NEW那里新建了一个Application,没有写代码,运行成功.
 
回复xoyo_wu:
那我应该如何单独运行我建立的那个窗体?或者说如何调试它?希望能给点建议
 
找本书好好看看学习学习!
 
今天我用open project..的方法又做了一次,第一次还行的,晚上再试问题又出现了.经过几次的摸索,终于找到不能显示窗体的原因了,是语句 Application.CreateForm(TForm1, Form1);的丢失造成的.唉...不知道是我的delphi问题还是什么的,搞了我一天....
不过还是谢谢大家的热心解答!随便问下,如何把积分分配给人呢?
 
begin
Application.Initialize;

[blue] Form1 := TForm1.Create(Application);
Form1.Show;
Form1.Update;[/blue]

Application.CreateForm(TMainForm, MainForm);
Application.CreateForm(TAboutBox, AboutBox);
[blue] Form1.Free;[/blue]
Application.Run;
end.


就是在程序开始运行的时候产生一个logo视窗,在project-->view source 中加入上面蓝色代码部分就可以看到form1一闪而过了。
 
后退
顶部