大家帮帮忙呀,为什么这个问题那么怪!窗体显示的问题!(20分)

  • 主题发起人 delphiere
  • 开始时间
D

delphiere

Unregistered / Unconfirmed
GUEST, unregistred user!
一个主窗体,几个子窗体!其中有一个窗体(属性为fsnormal),总是在Main窗体显示已经就
开始出现,但是没有显示,一闪而过。然后消失,这样看起来感觉很不美观!是不是我那里
设置错误了呀?
begin
Application.Initialize;
Application.CreateForm(TDataModule2, DataModule2);
Application.CreateForm(TMain, Main); //主窗体
Application.CreateForm(Tyjkc_form, yjkc_form); //就是这个窗体,一闪而过
Application.CreateForm(Twupin_form, wupin_form);
后面还有很多窗体的!
 
给你另一个方法:
在你主窗体中加一timer控件,定义一个全局变量var i:integer,并赋初值i:=0;
双击将timer的enabled调协为true;在程序中写入:
begin
inc(i);
if i=5 then
begin
form2.close;
timer1.enabled:=false;//定义5秒钟
end;
end;
在主窗体的onshow中写程序:form2.showmodal;//form2为显示的窗体。5秒钟后主窗体出现

题目没看清楚上面代码没用(:),你去查一下主窗体中的onshow中有没有写什么代码?
 
肯定Tyjkc_form程序有问题
 
begin
Application.Initialize;
Application.CreateForm(TDataModule2, DataModule2);
Application.CreateForm(TMain, Main); //主窗体
Application.CreateForm(Tyjkc_form, yjkc_form); //就是这个窗体,一闪而过
Sleep(3000);
Application.CreateForm(Twupin_form, wupin_form);
 
多人接受答案了。
 
顶部