[Android] Странное поведение модальной формы

[antarey]

Согласно справки на андроиде надо вызывать ShowModal для формы с передачей процедуры.

На основании Using FireMonkey Modal Dialog Boxes написал код

 

//---------------------------------------------------------------------------
class TEditTableCallback : public TCppInterfacedObject<TProc__1<TModalResult> >
{
public:
int TableIndex;
  void __fastcall Invoke(TModalResult ModalResult) {
if (ModalResult==1)
{
  switch (TableIndex)
  {
  case 0: dm->tKaca->Post();dm->tKaca->Refresh();break;
  }
}
else
{
  switch (TableIndex)
  {
  case 0: dm->tKaca->Cancel();break;
  }
}


  }
};
//---------------------------------------------------------------------------

void __fastcall TfrmMain::SpeedButton4Click(TObject *Sender)
{
TSpeedButton *button=dynamic_cast<TSpeedButton*>(Sender);
TEditTableCallback* EditTableCallback = new TEditTableCallback();
EditTableCallback->TableIndex=TabControl2->TabIndex;


switch (TabControl2->TabIndex)
{
case 0: 
TfrmNewKaca *frmNewKaca = new TfrmNewKaca(Application);
if (button->Tag==0){dm->tKaca->Append();frmNewKaca->ShowModal(EditTableCallback);}
if (button->Tag==1){dm->tKaca->Edit();frmNewKaca->ShowModal(EditTableCallback);}
break;
}


}
//---------------------------------------------------------------------------

Все делается отлично, но на вин платформе модальная форма, как бы и не модальная - я свободно клацаю по элементам главной формы, а модальная уходит на второй план.

Насколько я понимаю в колбасных обрезках, по крайней мере так было в ВСЛ - при вызове ShowModal управление передавалось модальной форме и управлять главной формой нельзя было до закрытия модальной.

frmNewKaca->ShowModal();

работает как надо. Или 

frmNewKaca->ShowModal(EditTableCallback);

актуально только для андроид платформы?

 

[Brovin Yaroslav]

Добрый вечер,

 

На сколько я вижу исходники, могу сказать, что это актуально только для Android платформы. Поэтому на других нужно использовать старый подход с ShowModal без параметров.

[antarey]

Спасибо