******显示主窗口和登录窗口的问题******

Question

在主窗口Form中放置TTimer控件，在FormCreate事件中击活Timer1，在Timer1OnTime事件中创建登陆窗口并且摸态显示。

Answer 1

在delphi里可以用下面这种方法弹出登录窗口
OnActivate:=nil;

Answer 2

在登录窗口的ONCREAT中
将登录窗口的PARENT属性设为主窗口;
再在主窗口的ONSHOW中SHOW登录窗口

Answer 3

// TryLogin.dpr 代码:
////////////////////////////////////////
program TryLogin;uses
  Forms,
  MainFrom in 'MainFrom.pas' {main},
  LoginFrom in 'LoginFrom.pas' {login};{$R *.RES}begin
  Application.CreateForm(Tmain, main);
  Main.Show;
  Login:=TLogin.Create(Application);
  if Login.Can_Open then
    begin
      Application.Initialize;
      Application.Run;
    end
  else
      Application.Terminate;
end.
//////////////////////////////////////////
//登录；窗体代码:
////////////////////////////////
unit LoginFrom;interfaceuses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;type
  Tlogin = class(TForm)
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public    function Can_Open:boolean;
    { Public declarations }
  end;var
  login: Tlogin;implementation{$R *.DFM}{ Tlogin }procedure Tlogin.Button1Click(Sender: TObject);
begin
MODALRESULT := mrok;
end;procedure Tlogin.Button2Click(Sender: TObject);
begin
MODALRESULT := mrcancel;
end;function Tlogin.Can_Open: boolean;
begin
  if showModal = mrok then
    Result := true
  else
    Result := false;
end;end.
//////////////////////////////////////////
//主窗体代码:unit MainFrom;interfaceuses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;type
  Tmain = class(TForm)
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  main: Tmain;implementation{$R *.DFM}end.
/////////////////////////

Answer 4

to genphone_ru(票票):我试一下先
to forgot(让一切随风):不明白你的意思，能否多写几行

Answer 5

program TryLogin;uses
  Forms,
  MainFrom in 'MainFrom.pas' {main},
  LoginFrom in 'LoginFrom.pas' {login};{$R *.RES}begin
  Application.CreateForm(Tmain, main);
  Main.Show;
  Login:=TLogin.Create(Application);
  if Login.Can_Open then
    begin
      Application.Initialize;
      Application.Run;
    end
  else
      Application.Terminate;
end

Answer 6

与wz2001相似(有一点差别)，我的方法是：在主窗口的FormShow事件中，用PostMessage投递(差别在这里，不是发送SendMessage)一条自定义消息给自己，然后在那条消息的处理中弹出登录窗口。
我曾经解答过类似问题，上有代码示范，请搜索一下。

Answer 7

原代码下载:
  http://asp.6to23.com/andylife/life/login.rar  大小:152K  不知是不是你想要的那样了

Answer 8

原代码下载:
  http://asp.6to23.com/andylife/life/login.rar  大小:152K  不知是不是你想要的那样了

Answer 9

在implementation后面引用你login 的unit
uses frmLogin;
在FormCreate事件中：
application.CreateForm(Tfrmlogin,frmLogin);
if frmLogin.ShowModal=返回值 then
    ...
else
   ...

Answer 10

ok结贴：
1 使用时间控件 可以
2 发送一条消息 也可以（更好）
  发送消息必须用：POSTMESSAGE

Answer 11

在主窗口Form中放置TTimer控件，设置时间要小，在Timer1OnTime事件中创建登陆窗口并且摸态显示要关闭控件 
 

Answer 12

在 项目文件 pargram里边显示；下边给你一个，看一看；
program TryLogin; 
uses Forms, MainFrom in 'MainFrom.pas' {main},
。
  Application.CreateForm(Txsxxbjform, xsxxbjform);
  Application.CreateForm(TDataModule1, DataModule1);
  Application.CreateForm(TDataModule2, DataModule2);
  Application.CreateForm(TForm1, Form1);
  flashform.showmodal;
  logform.showmodal;
  while logform.edit3.text<>'true' do
  begin
     logform.showmodal;
   end;
  Application.Run;
end.

Answer 13

不好意思，如果是这样的话，就在ONSHOW里边，看错了，不好意思