登陆窗(100分)

我设登陆窗（LoginForm)为主窗体，登陆成功后进入主界面(mainform)。所有窗体均为MDI窗
可登陆后，却出现错误提示，access address fffff错误
为什么

估计是FORM还没有CREEATE，你就在应用里面的控件了

说说源码，是不是都是自动创建？

你是怎么实现的！
我做的都没什么问题呀！

LoginForm是不是被你释放掉了,[]
不要把LoginForm设为主窗体,看看Flash窗口是怎么创建的.DFW有很多例子.

BlurRain,不把Login_form设为主窗体的话，怎么在主窗体之前出现Login_form

看看DELPHI的例子，数据库的例子中有。
我也做过，部分代码如下
uses
main in 'main.pas' {MainFrm},
startunit in 'startunit.pas' {startfrm},
...
begin
StartFrm := Tstartfrm.Create(Application);
StartFrm.show;
StartFrm.Update;
Application.Initialize;
Application.Title := '监测系统';
StartFrm.Label1.Caption := 'Loading...'+InttoStr(i);
StartFrm.Label1.Update;
StartFrm.Label1.Caption := 'Initializing...';
Application.CreateForm(TPasswordDlg, PasswordDlg);
Application.CreateForm(TMainFrm, MainFrm);
StartFrm.Close;
StartFrm.Free;
Application.Run;
end;

看看下面的例子:
工程文件中:
program Mdiapp;
uses
Forms,
Main in 'MAIN.PAS' {MainForm},
Childwin in 'CHILDWIN.PAS' {MDIChild},
About in 'about.pas' {AboutBox},
Unit1 in 'Unit1.pas' {Form1};
{$R *.RES}
begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Form1.Showmodal;
if not Form1.FRight then
Application.Terminate
else
Form1.Free;
Application.CreateForm(TMainForm, MainForm);
Application.CreateForm(TAboutBox, AboutBox);
Application.Run;
end.

登录窗口:
我只用一个Edit来判断是否可以登录,你可以加入连接数据库的部分.
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;
type
TForm1 = class(TForm)
Edit1: TEdit;
Button1: TButton;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
FRight : boolean;

end;

var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.FormCreate(Sender: TObject);
begin
FRight := False;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
if Edit1.Text = 'me' then
FRight := True
else
FRight := False;
Close;
end;

end.

怎么能把登录窗口设成主窗口呢。
Application.Initialize;
Application.Title := '销售事务管理系统';
Application.CreateForm(TFrm_Main, Frm_Main);
Frm_Login := TFrm_Login.Create(nil);
if Frm_Login.ShowModal = mrOK then
begin
Application.Run;
end;

多人接受答案了。