ShowModal not implemented on this platform

[Steepe_Hare]

Представим, что нам нужно получить от пользователя определенную информацию, чтобы продолжить работу.

На Windows делал так и всё было отлично:

  with TForm3.Create(Application) do
    try
      if (ShowModal = mrOK) then
        MakeSomething(StrToInt(SpinBox1.Text), StrToInt(SpinBox2.Text));
    finally
      Free;
    end;

На Андроиде получаю:

Project project1.apk raised exception class ENotImplemented with message 'ShowModal not implemented on this platform'.
 

ОК, поменяем ShowModal на Show, но как узнать, что пользователь нажал OK, а не отказался??

 

[Равиль Зарипов (ZuBy)]

 

[Steepe_Hare]

1 час назад, ZuBy сказал:

 

интересное решение, спасибо

[Steepe_Hare]

1 час назад, ZuBy сказал:

 

у вас TfrmLogin создается вручную. Нужно ли ей где-то делать Free? Или память сама освободится после закрытия приложения?

[Равиль Зарипов (ZuBy)]

42 минуты назад, Steepe_Hare сказал:

у вас TfrmLogin создается вручную. Нужно ли ей где-то делать Free? Или память сама освободится после закрытия приложения?

без разницы, можете прописать в OnClose формы авторизации

Action := TCloseAction.caFree;

или оставить без изменении, при завершении приложения форма удалится автоматически

[Steepe_Hare]

3 часа назад, ZuBy сказал:

 

вы знаете, я обнаружил, что пока не отработает код внутри

  frmLogin.Show(
    procedure
    begin
    ...
    end);

то второе окно не закроется(

[Равиль Зарипов (ZuBy)]

33 минуты назад, Steepe_Hare сказал:

вы знаете, я обнаружил, что пока не отработает код внутри

  frmLogin.Show(
    procedure
    begin
    ...
    end);

то второе окно не закроется(

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

Я не проверял, но попробуйте

[Камышев Александр]

в главной форме объявить 

void __fastcall OnOptFormReady(TObject *Sender);

в вызываемой форме 

private:	// User declarations
	TNotifyEvent FOnReady;
public:		// User declarations
	__property TNotifyEvent OnReady = { read = FOnReady, write = FOnReady };

показать форму

if ( !fmLogin ) fmLogin = new TfmLogin(this);
fmLogin->OnReady = OnOptFormReady;
#ifdef WIN32
fmLogin->ShowModal();
#else
fmLogin->ShowFullScreenIcon = true;
fmLogin->Show();
#endif

по кнопкам в "модальном" окне вызвать событие:

Close();
ModalResult = mrOk; // если ок
if ( FOnReady ) FOnReady( (TObject*)this );

и обработка callback:

void __fastcall TForm1::OnOptFormReady(TObject *Sender)
{
if ( Sender == fmLogin )
    {
        if ( fmLogin->ModalResult != mrOk ) return;
        ApplySettings();
    }

код получается кроссплатформенный