我想在火猴應用程序中的程序源文件中初始化窗體屬性,並且它會引發異常。這裏是代碼:無法設置火猴表單屬性
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) –