如何完全消去窗体的闪动(50分)

  • 主题发起人 主题发起人 xiaoywh
  • 开始时间 开始时间
X

xiaoywh

Unregistered / Unconfirmed
GUEST, unregistred user!
笔者在编一程序启动时窗口(无标题)自动最小化但总有一闪烁请问用何种方法能使之消去闪烁感
 
在工程文件中选File->New Form新建一个窗口,设计好窗口的外观。给窗口起名为AboutBox
,选Project->Options,将新建的窗口从自动建立中去掉。 选View->Project Source,打开
工程文件的源文件,在下面加入句子。

Uses AboutBox
Var
lTime :TDateTime;
Begin
Application.Initialize();
AboutBox=TAboutBox.Create(AboutBox);
AboutBox.Show;
AboutBox.Update;
lTime=GetTickCount;
Application.CreateForm(TMainForm,MainForm);
while((GetTickCount-lTime) / 1000 <3) do;
AboutBox.Hide;
AboutBox.Free;
Application.Run;
end;
 
在窗口建立时(OnCreate)改一改窗口的大小(0,0)试试
 
嘿嘿,应该这样
Application.ShowMainForm:=False;
 
多人接受答案了。
 
后退
顶部