窗体启动后立即隐藏的问题 有两个窗体:form1和form2,form1是主窗体,我现在需要form1启动后立即隐藏,显示出form2窗体应该怎么做呢? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 参考http://community.csdn.net/Expert/topic/4760/4760234.xml?temp=.4382135 在工程 View Source中将Application.CreateForm(TFrom2, From2);这句删除;在From1内实现:Self.Hide;Application.CreateForm(TFrom2, From2);From2.ShowModal; 只有使用模态方式显示吗?--- 可以非模态的我不是要做那种登录的,,我有其他的用处,,要是可以不用模态方式就更好了---用Show也可以,要考虑Form2的生存期 program Project1;uses Forms, Windows, Controls, Unit1 in 'Unit1.pas' {Form1}, Unit2 in 'Unit2.pas' {frmLogin};{$R *.res}var frm: TfrmLogin;begin Application.Initialize; frm := TfrmLogin.Create(nil); frm.Show; Application.CreateForm(TForm1, Form1); Application.ShowMainForm := False; Application.Run; frm.Free;end. Form1 的 OnCreate 中写到Application.ShowMainForm := falseForm2 := TForm2.Create(Self);Form2.Show; 求助,DELPHI版权问题 fastreport 交叉表 有沒人會啊。出勤信息啊。好可憐哦。連續發了3個貼還搞不定的東西 查找一个字符在一个字符串中最后出现的位置,急急 大哥大姐门帮帮我啊,要被老板开除了 请教一个弱弱的问题:关于Delphi编辑环境的字体 不支持UNICODE的程序如何使其支持中文? BOM查询问题,请高手指点! 毕业答辩完了,散分 怎样通过Query读取和写入字段长度大于255的字段内容?100分奉送 给板主的建议 [1分调查]程序员能喝酒的多吗? 重在参与 如何让同一程序多个窗口显示在任务栏上?
Application.CreateForm(TFrom2, From2);
From2.ShowModal;
---
可以非模态的我不是要做那种登录的,,我有其他的用处,,要是可以不用模态方式就更好了
---
用Show也可以,要考虑Form2的生存期
Forms,
Windows,
Controls,
Unit1 in 'Unit1.pas' {Form1},
Unit2 in 'Unit2.pas' {frmLogin};{$R *.res}var
frm: TfrmLogin;begin
Application.Initialize;
frm := TfrmLogin.Create(nil);
frm.Show;
Application.CreateForm(TForm1, Form1);
Application.ShowMainForm := False;
Application.Run;
frm.Free;
end.
Form2 := TForm2.Create(Self);
Form2.Show;