如何实现一个启动画面,能不能直接通过修改属性把窗体的标题栏全部去掉?(100分)

  • 主题发起人 主题发起人 smilekan
  • 开始时间 开始时间
S

smilekan

Unregistered / Unconfirmed
GUEST, unregistred user!
我想直接修改窗体的标题属性,以便在上面放置图片,然后就可以做成一个启动画面,但是
不知道修改哪个属性,各位大鸟,帮帮我这只菜鸟吧,谢谢!
 
BorderStyle = bsNone
 
加上退出的东东否则退不出来
用计时器
 
BorderStyle属性改成bsNone把窗体的标题栏全部去掉
启动画面也很简单,几乎所有的Delphi书里面都有讲
 
同意楼上的
 
把form 的
BorderStyle = bsNone
begin
Application.Initialize;
denglu:=Tdenglu.Create(Application);
//显示登陆窗口
denglu.ShowModal;

denglu.Update;
if valid =true then
//登陆窗口船来的boolean变量作一些判断,用户名,密码是否正确等,如果时其他的可用延时显示信息,下面大都一样的
begin
Application.Title := '...';
Application.CreateForm(Tform1, form1);
Application.Run;
end
else
Application.Terminate;
end.
 
BorderStyle = bsNone
如果你还需要通过登录窗口才能进入系统的,那么你可以把启动画面直接放在登录窗口上吧。通过Timer来控制窗体的运行,如:
procedure TLogonForm.Timer1Timer(Sender: TObject);
begin
BorderStyle:=bsSizeable;//把原先的bsNone转为正常可示的窗体,以切换为登录窗口。
ClientHeight:=100;
ClientWidth :=300;
Top:=170;
Left :=245;//启动画面闪现后,切换为登录窗口,定位。
dblookupcombobox1.Visible:=True;
Edit2.Visible:=True;
bitbtn1.Visible :=True;
bitbtn2.Visible :=True;//登录窗口控件可视化
image1.Visible :=false;//启动画面在设定的时间后消失,从而出现登录窗口
Timer1.Enabled :=false;//完成Timer的使命
end;
 
多人接受答案了。
 
后退
顶部