我想在火猴应用程序中的程序源文件中初始化窗体属性,并且它会引发异常。这里是代码:无法设置火猴表单属性
uses
System.StartUpCopy,
FMX.Forms,
uMainForm in 'Units\uMainForm.pas' {MainForm},
UDataModule in 'Units\UDataModule.pas' {DataMod: TDataModule},
DataHelperClasses in 'Units\DataHelperClasses.pas',
EXDIntf in 'Units\EXDIntf.pas',
Exd in 'Units\Exd.pas';
{$R *.res}
var
ViewModel: TEXDViewModel;
begin
Application.Initialize;
Application.CreateForm(TDataMod, DataMod);
Application.CreateForm(TMainForm, MainForm);
ViewModel := TEXDViewModel.Create;
MainForm.Data := DataMod;
MainForm.ViewModel := ViewModel; //This throws an access violation exception
ViewModel.Data := DataMod;
Application.Run;
end.
我没有问题在VCL应用程序中这样做。我如何解决它?
谢谢!有用! – joeb545
默认情况下''RealCreateForms()'在'Application.Run()'中被调用。 –
如果这是正确的答案,请接受它。 [接受答案的工作方式](http://meta.stackexchange.com/questions/5234/how-does-accepting-an-answer-work) –