Добрый день.
Возникла необходимость создать форму ввода логина и пароля.
Всё реализовано таким образом:
unit Main;
interface
uses
System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs;
type
TMainForm = class(TForm)
private
{ Private declarations }
public
{ Public declarations }
end;
var
MainForm: TMainForm;
implementation
{$R *.fmx}
end.
unit Login;
interface
uses
System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs,
FMX.Controls.Presentation, FMX.Edit;
type
TLoginForm = class(TForm)
Edit1: TEdit;
private
{ Private declarations }
public
class function Execute: Boolean; { Public declarations }
end;
var
LoginForm: TLoginForm;
implementation
{$R *.fmx}
{ TForm2 }
class function TLoginForm.Execute: Boolean;
begin
LoginForm:= TLoginForm.Create(nil);
try
Result:= LoginForm.ShowModal = mrOk;
finally
LoginForm.Free;
end;
end;
end.
program LoginBug;
uses
System.StartUpCopy,
FMX.Forms,
Main in 'Main.pas' {MainForm},
Login in 'Login.pas' {LoginForm};
{$R *.res}
begin
if TLoginForm.Execute then begin
Application.Initialize;
Application.CreateForm(TMainForm, MainForm);
Application.Run;
end;
end.
Но при запуске программы форма логина выглядит неактивной и отсутствует каретка в Edite.
Кто-нибудь сталкивался с таким?
Login.7z