如何编写起动窗口,此窗口中显示的是公司名称,开发者等内容?停留几秒后自动转到主窗口中,起动窗口关闭,这要如何实现?
解决方案 »
- 如何获取在资源浏览器上拖曳放开鼠标时IDataObject将要存放的路径
- 今天看到一个感人的贴子,这样的媳妇你有吗?
- LOGO窗体之落叶归根
- 使用FB 或者 interbase的高手看一下 100分求助
- 请教在DELPHI中如何识别图象是蓝色或黄色呢?
- implicitly imported into package,什么意思啊?
- 关于MDICHILD窗口的小问题,请各位大侠帮帮吗,急
- 如何用delphi做程序的帮助文件
- Delphi7做的程序Vista下能用吗?
- 对等局域网中A机的程序窗口中有一个有内容的TEDIT控件,B机如何获得A机TEDIT控件的内容??,已知A机IP地址和窗口标题。
- 请问在输入时按回车键想达到 TAB 键的效果,代码该怎么写?
- type library的一个问题...
2 再about窗口中设置timer,间隔为n秒
3 在ontimer中form.close;
Application.Initialize;
try
frmLoad:=TfrmLoad.Create(Application);
frmLoad.Show;
frmLoad.Update;
Application.CreateForm(TfrmDM, frmDM);
Application.CreateForm(TfrmMain, frmMain);
finally
frmLoad.Free;
frmLoad:= nil;
end;
frmMain.ShowModal;
Application.Run;
end.frmLoad就是起动窗口,当数据窗口frmDM和主窗口frmMain创建后就自行关闭,因为创建数据窗口的时候要连接数据库,所以有一段时间间隔, 否则没必要用起动窗口吧...
1 主窗口showmodal about窗口 ---------这是什么意思,about是什么窗口呢?谢谢
program Project1;uses
Forms,
Unit1 in 'Unit1.pas' {Form1},
Unit2 in 'Unit2.pas' {Form2};{$R *.res}var
form2:tform2;
begin
Application.Initialize;
form2:=tform2.Create(application);
form2.Show;
form2.Update;
Application.CreateForm(TForm1, Form1);
form2.Close;
form2.Free;
Application.Run;
end.
form2:=TForm2.create(self);
form2.showmodal;就行了!另处两位老兄的方法我一会儿再试,不过也的给你们加分
我总分再加20吧!