小问题5'(5分)

  • 主题发起人 主题发起人 combol
  • 开始时间 开始时间
C

combol

Unregistered / Unconfirmed
GUEST, unregistred user!
有一个多月没来了。小问题/
begin
frmsplash:=Tfrmsplash.create(application);
frmsplash.Show;
frmsplash.update;
Application.Initialize;
Application.CreateForm(Tfrmmainwin, frmmainwin);
frmsplash.Hide ;
frmsplash.close;<----|
Application.Run;
|
end |
|
---------
启动封面用上面的语句好象不能Close,将主窗口最小化,发现frmsplash
还在!!!
 
用release试试.
 
用free试试
 
还是不行,我的主窗口不是wsMaximized, 程序启动以后,拖动主窗口,在后
面还是有Splash.太不专业了。
close,free,release都不行。
 
我也发现这种情况,用尽浑身解数也未消除About的边框,听听他人的见解。
 
我试了一下,没什么问题。
 
跟踪一下
 
To menxin
主窗口非最大化,拖动主窗口,问题依然存在.
===============
To Everybody
同时我的D4也有问题了.我的D4和作出的东西都成了这样.
----> http://loto.myrice.com/bd.jpg
重装无用.
再加5'
 
没问题呀!
frmsplash:=Tfrmsplash.create(nil);
 
再hide,close,free.
 
用D版果然 不行,
frmsplash:=Tfrmsplash.create(nil);
frmsplash.Show;
frmsplash.update;
Application.Initialize;
Application.CreateForm(Tfrmmainwin, frmmainwin);
frmsplash.hide;
frmsplash.close;
frmsplash.free;
Application.Run;
Help...
 
frmsplash里还有什么东西?
 
运行d4的例子程序mastapp,它的splashform也有问题吗?
 
I know why!
Foe example:
.....
begin
Application.Initialize;
Application.Title := 'For example';
frmSplash := TfrmSplash.Create(Application);
frmSplash.Show;

frmSplash.Update;
Screen.Cursor := -11;
Application.CreateForm(TfrmDJSM01, frmDJSM01);
Application.CreateForm(TdmlDowan, dmlDowan);
...
// Application.CreateForm(TfrmSplash, frmSplash);
..... ↑ Please delete this!!!
 
U are right!
由于我提问时少写了
..
Application.CreateForm(TfrmSplash, frmSplash);
..
让各位高手辛苦了。
如同Teikini所说,问题解决!
 
接受答案了.
 
No! My answer is right.
combol : Please tell them who is right.
And please give me 5 score.
 
combol:你......??????
Teikini:你会得到分的,不要急嘛。
 
人間自有公理(活躍氣氛)
 
后退
顶部