procedure TFormMain.formcreate(Sender: TObject);
begin
formmain.Visible:=false;
form_login:=TForm_login.Create(application);
form_login.Show;
form_login.Refresh;
end;procedure TFormMain.FormActivate(Sender: TObject);
begin
if form_login.Showing then form_login.SetFocus;
end;
begin
formmain.Visible:=false;
form_login:=TForm_login.Create(application);
form_login.Show;
form_login.Refresh;
end;procedure TFormMain.FormActivate(Sender: TObject);
begin
if form_login.Showing then form_login.SetFocus;
end;
解决方案 »
- delphi计算问题,请假高手
- 高手来看看奇怪的问题
- 关于delphi的问题!!请指教,谢谢!!
- ERP行業人士的好去處 ERP技術論壇 http://www.erpway.com/bbs
- 为什么可以改变TButton上文字的大小,而不能改变文字的颜色?
- delphi 7中怎么没有报件组件页?
- 各位大哥,在家知道PeekMessage是读取本线程的消息,那么如何用它读取其它线程的消息呢?(在线等待)
- 要从何入手??
- 数据库登陆程序在2000下运行正常,在98下登陆的时候显示‘取消操作’
- 我用"Microsoft Jet4.0 OLE DB Provider"为什么联不上Excel文件呢,说格式错误!
- 一个简单的关于日期格式的问题,在线等待,立即送分
- 这个小问题我搞不清楚了,拜托~~
Forms,
Unit1 in 'Unit1.pas' {Form1};{$R *.RES}begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.Run;
end.
在这个里面创建比较好.