新手问题：主窗体如何取得登陆成功后的用户名？
我是个新手，面临这样的问题：
Form1 是登陆窗体，Form2是主窗体，
工程文件是运行软件前先打开登陆窗体，然后登陆成功后，再进入主窗体：
Form1 := TForm1.Create(nil);
try
if Form1.ShowModal = mrOk then
begin
Application.CreateForm(TForm2,Form1);
Application.Run;
end;
finally
Form1.Free;
end;
我如何在登陆成功后，在Form2中得到登陆成功的用户名呢？因为Form1已经释放了，所以，不想在Form2中，Use form 这种方式，
[解决办法]
方法有很多种，我也是菜鸟，就用最简单的方法吧
在主窗口定义如下变量
loginOver:boolean；
UserNamestr:string;
procedure TMainForm.FormShow(Sender: TObject);
begin
LoginOver:=False; 初始值为未正确登陆。
loginform.ShowModal; 打开登陆窗口
if LoginOver=false then 如果登陆窗口未正确登陆那么退出
begin
Close;
exit;
end;
end;
登陆form uses 主窗口单元
if passwordEdit.Text=NowPassword then
begin
LoginOver:=True;
UserNameStr:=UserNameEdit.Text;//这就是登陆的用户名。
// MessageDlg('登陆成功！',mtInformation,[mbOK],0);
LoginForm.Close;
end else
begin
MessageDlg('密码不正确！',mtInformation,[mbOK],0);
end;
end;
欢迎继续交流
55500515@qq.com
